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ÖNSÖZ 


Bilgisayarlar ve bilgisayar teknolojilerinin hızlı bir şekilde gelişimiyle bir- 
likte bilgisayarların hizmet ve mühendislik sektörlerinde git gide artarak kul- 
lanıldığına şahit olmaktayız. Bu gelişim ile programlama dilleri de ihtiyaca 
göre çeşitlilik göstermektedir. BASIC programlama dili de genel kullanıma 
yönelik, öğrenmesi ve kullanımı adında da anlaşılacağı üzere temel oluşturan 
bir dildir. 


Bu kitap esasen Osmangazi Üniversitesi, Mühendislik Mimarlık Fakültesi, 
Makina Mühendisliği bölümünde okutulmakta olan Bilgisayar Programlama 
dersine yardımcı olmak için hazırlanmıştır. Bu kitabı hazırlarken hedefimiz 
sadece BASIC programlama dili ve deyimlerini tanıtmak değil aynı zamanda 
temel mühendislik ve fen bilimleri uygulamasında gerekli teknikleri sağlamak 
olmuştur. Bu nedenle türev, integral, matrisler gibi konular işlenmiş, gerekli 
programlar temin edilmiştir. 

Bu kitabın hazırlanması sırasında bize destek olan arkadaşlarımıza ve çiz- 
imlerde yardımını esirgemeyen Teknik Ressam Azime SÜNTER'e teşekkürü 
bir borç biliriz. 


Doç. Dr. Zekeriya ALTAÇ Yrd. Doç. Dr. İlker GÜRKAN 


19 Ocak 1995 
Eskişehir 


Bolüm 1 


GENEL BİLGİLER 


1.1 BİLGİ TOPLUMU 


Günümüzde bilgisayarların hayatımızı sürekli şekilde nasıl etkilediğini görmek- 
teyiz. Hergün her saat çevremizde veri toplanmaktadır. Fakat bu veriler 
ve anlamsız şekilde toplanmaktadır. Tüm bu veriler faydalı veriler haline 
dönüştürülebilir. Bu işleme Veri İşleme Sistemi denir. 

Veri işleme sistemleri, bilgisayar kullansın veya kullanmasın daima girdi. 
depolama, işleme, çıktı ve kontrol olmak üzere beş ana bölümden oluşur. 
Tüm bu bölümlerde verilerin sistemle ilişkisi sağlanır. Daha sonra da veriler 
toplumun ve kişilerin istediği şekile dönüştürülür. 

Tarihin başlangıcından beri veri işleme sistemlerine ihtiyaç göstermekte- 
dir. İnsanoğlu sayma gereği duyduğunda ilk olarak parmaklarını kullanma 
yoluna gitmiş, sayıların toplanması amacıyla düğümlü ipler veya daha sonra 
Çinliler ve eski yunanlılar “abakus” adı verilen aracı aritmetik işlem yapmakta 
kullanmışlardır. İlk eldeli toplama işlemini yapabilen hesap makinası 1642'de 
Fransız Blaise Pascal tarafından yapıldı. Bugün bunların gelişmiş şekli FACID 
hesap makinalarıdır. 20. asırdan önce veri işlemeleri genelde mekanik cihaz 
ve aletlerle yapılırdı. Bu yüzyılın başında Dr. Herman Hollerith adında bir 
bilim adamı 1890 yılında A.B.D. de yapılan nüfus sayımı sonuçlarını değer- 
lendirmek için delikli kartlar üzerine işlenen bir yöntem ve elektro-mekanik 
bir cihaz tasarlamıştır. Daha sonra 1940 larda, bu makinalar özellikle askeri 
alanda kullanılmak üzere yapılan bilimsel araştırmalar yardımıyla geliştirilmiş 
elektronik bilgisayarlar haline dönüştürülmüşlerdir. 

Otomatik hesaplayıcılara elektroniğin uygulaması 1946 yılında J. P. Eck- 
ert ve J. W. Mauhly tarafından ENIAC (Electronic Numerical İntegrator And 
Calculator)'ın yapımı ile gerçekleşti. Bu makina 30 ton ağırlığındaydı ve bir 
kişinin masa üstü hesap makinalarıyla 20 saatte yaptığı işleri bu makina 30 


? 
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saniyede yapmaktaydı. Fakat bilgisayarlar o günden bugüne daha da gelişti. 
Günümüzde artık bilgisayarlar iş ve endüstri alanında geniş ölçüde kullanıl- 
maktadır. Ayrıca kişisel bilgisayarların da kullanımı artmakta ve yukarıda 
bahsedilen alanlardan başka, artık evlere de her geçen gün hızla girmekte- 
dir. Bütün bunların sonucu olarak toplumumuz endüstri toplumundan çıkıp 
endüstri sonrası olarak düşünülen bir bilgi toplumu haline gelmiştir. 


1.2 BİLGİSAYAR SİSTEMLERİ 


1.2.1 Bilgisayar Tipleri 


Günümüzde kullanılan 2 tip bilgisayar vardır: analog ve sayısal (digital) bil- 
gisayarlar. Analog bilgisayarlar fiziksel sistemleri simüle ederler. Bir analog 
bilgisayarın çalışma sistemi zamanla sürekli (kesikli olmayan) değişen ölçüm 
sinyalleri ile ilgilidir. Bu yüzden analog bilgisayarlar genellikle sürekli ölçüm 
ve kontrol gerektiren alanlarda kullanılır. 

Sayısal bilgisayarlar, analog bilgisayarlara karşın zamanla kesikli şekilde 
değişen büyüklüklerle çalışır. Bu tip bilgisayarlar ölçmekten ziyade sayar ve 
fiziksel ölçümler yerine sayılar kullanır. İşletmelerde kullanılan veriler kesikli 
(yani belirli aralıklarla toplanan veriler) olduğundan bu alanlarda da sayısal 
bilgisayarlar kullanılması doğaldır. 

Yukarıda açıklanan her iki sistemi de içeren cihazlara hibrid (hybrid) bil- 
gisayarlar adı verilir. Birçok ticari, bilimsel ve endüstriyel bilgisayar sistemleri 
analog ve sayısal cihazların kombinasyonundan meydana gelir. Bu tip cihazlar 
günümüzde gelişmekte ve her alanda kullanılmaktadır. 


1.2.2 Bilgisayar Elemanları 


Bir bilgisayar sistemindeki gözle görünen fiziksel parçalara donanım, sistemin 
gözle gözükmeyen ve yapması gereken işlevleri yerine getiren bilgisayar prog- 
ramlarına da yazılım, bilgisayar sistemine yapıldığı şirkette konulan program- 
lara da bellenim adı verilir. 

Bir bilgisayar sistem yapısı, ana bellek (depolama) birimi etrafında orga- 
nize edilmiştir. Çünkü bilgisayar tarafından kullanılan tüm veri ve komutlar 
işlenmeden önce ana bellekten geçmelidir. Buradan yola çıkarak sayısal bir 
bilgisayarın fonksiyonel birimleri şöyle sıralanabilir: (1) Ana ve ikincil bellek 
birimleri, (2) Merkezi işlem birimi, ve (3) Girdi ve çıktı birimleri. 
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1.2.3 Ana ve İkincil Bellek Birimleri 


Ayrıca iç bellek olarak adlandırılan ana bellek birimi, merkezi işlem birimi ile 
aynı yerde bulunur. Bu birimin amacı: 


1. İşlenecek tüm verileri tutmak, 
2. Ara işlem sonuçlarını tutmak, 
3. Elde edilen sonuçları çıktı cihazına göndermeden önce tutmak, 
4. Devam etmekte olan işlem için gerekli tüm komutları tutmak. 


Ana bellek, iki çeşit hafıza ortamından oluşur: magnetik-çekirdek hafıza 
ve yarı iletken (semiconductor) hafıza. Bunlardan birincisi olan magnetik 
çekirdek ortamı devredeki güç kesildiğinde içindeki bilgileri kaybetmeyen (non- 
volatile) bir hafıza ortamıdır. Yarı iletken hafıza ise, güç kesildiğinde içinde 
tuttuğu içeriği kaybeden, içindeki veriye gelişigüzel bir şekilde erişilebilen bir 
hafıza olduğundan bu çeşit hafızaya RAM (Random Access Memory - Rasgele 
Erişimli Bellek) de denir. İşlem sırasında RAM'deki içerik sürekli değişir. 

Daha önce yukarıdaki kısımlarda bahsedilen sistemin çalışması için gerekli 
(özellikle bellenim) programların depolandığı güç kesilmesinde silinmeyen 
belleğe de kısaca ROM (Read Only Memory - Salt Oku Belleği) denir. 


Son zamanlarda, ROM olarak kullanılan fakat istenildiğinde silinip, tekrar 
programlanabilen hafızalarda vardır. Bunlara EPROM (Eraseable Program- 
able Read Only Memory - Silinebilir Programlanabilir Salt Oku Belleği) denir. 
Bunlar gereğinde çeşitli yöntemlerle tekrar programlanabilen fakat ROM gibi 
çalışan bellek birimleridir. 

İkincil bellek birimi olarak yıllardan beri elektromekanik ortam kul- 
lanımdadır. Bu ortam, bilgisayar sistemi dışında da bilgi depolanması için 
kullamlan ve istenildiği gibi silinip değiştirilebilen bir depolama sistemidir. 
Bunlar magnetik teypler, diskler, disketler ve kasetlerdir. Kütlesel olarak 
daha fazla bilgi depolanması için kullanılan başka cihazlar da vardır. Mag- 
netik teypler, daha çok ana bilgisayarlar da bilgi depolama amacı ile kullanılır. 
Disk ve disketler ise kişisel bilgisayarlarda oldukça pratik şekilde kullanılabilen 
ve birçok boyutta ve kapasitede olan depolama ortamlarıdır. Kişisel bilgisa- 
yarlarda kullanılan disklere sabit disk (Fixed Disk veya Hard Disk), disketlere 
de esnek disket (Floppv diskette) denir. Kasetler ise daha çok yedekleme amacı 
için kullanılan depolama yöntemidir. 

İkincil Bellek birimi olarak ayrıca kütlesel depolama amacı ile optical-disk 
sistemleri de vardır. Bunlarla çok büyük miktarlarda bilgi depolanabilir ve 
oldukça büyük bir hızla bilgi transferi sağlanabilir. 
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1.2.4 Merkezi İşlem Birimi 


Merkezi İşlem Birimi, bilgisayarın beyni olup iki parçadan oluşmuştur: kontrol 
birimi (Control Unit-CU) ve aritmetik mantık birimi ( Arithmetic Logic Unit- 
ALU). 

Kontrol birimi, tüm bilgisayar sistemini kontrol ve organize eden birimdir. 
Ana bellekte depolanmış programdan gerekli komutları alır, yorumlar ve ko- 
mutları yerine getirmek için gerekli sinyalleri sistemin diğer birimlerine gön- 
derir. 

Her bilgisayar sisteminde gerçekleşmesi amaçlanan fonksiyonların her biri, 
örneğin dört işlem ve karşılaştırma işlemi, için ayrı bir devre hazırlanmıştır. Bu 
devrelerin her birine tasarlayıcı tarafından bilinen, birbirlerinden farklı olan ve 
işlem kodu olarak adlandırılan numaralar verilir. Bu nedenle bilgisayar türle- 
rine göre aynı işlem için bile bu kodlar da farklılık görülebilir. Bir bilgisayar 
programı içindeki her komut, işlem kodu ile birlikte işlemin üzerinde yapılacağı 
bilginin bellek konumunun adresini de taşır. Buna göre; kontrol birimi, komut 
sayıcı tarafından belirlenen konumda bulunan komutu okur ve işlem sırası gelen 
komutun adresini belirler; bellekten elektrik uyarısı halinde ulaştırılan komut 
içinde adresini verdiği bilgi üzerinde kontrol birimlerinin işlem kodu ile belir- 
tilen işlemin yapılmasını sağlar ve bir sonraki komutu ve adresini belirleyerek 
işleme devam eder. 

Aritmetik mantık birimi, kontrol birimi tarafından, ana bellekten alınan 
emirleri yerine getirir ve sonuçları ana belleğe geri gönderir. Burada yerine 
getirilen komutlar genelde matematiksel işlemlerdir. 

Bilgisayar sistemlerinin tipi (örneğin kişisel bilgisayarların tipleri 386, 486, 
pentium v.s.) ve hızları (20, 25, 33, 40, 66 MHz, v.s.) bu birimin tipi ve hızları 
ile belirtilmektedir. 


1.2.5 Girdi ve Çıktı Birimleri 


Bilgisayar bulunduğu ortamla mutlaka haberleşmek zorundadır. Girdi birim- 
leri; verileri, programları ve diğer bilgileri ana belleğe vermekte kullanılır. Çıktı 
birimleri ise kullanıcıya gerekli bilgileri sanmak için ana bellekten verileri al- 
mak veya daha sonra kullanılmak üzere verileri ikincil bir bellek ortamında 
saklamak için kullanılır. Bazı cihazlar aynı anda hem girdi hem de çıktı cihazı 
olarak kullanılır. 

Girdi cihazları olarak, klavye, tarayıcılar (scanner), ışık kalemleri, bar kod 
okuyucuları, fareler, optik okuyucular, sayısallaştırıcı (digitizer) tabletler, v.s 
gibi cihazlar vardır. 
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Çıktı cihazları olarak, monitörler (VDU - Visual Display Unit), yazıcılar, 
grafik çizicileri (plotter), v.s. gibi cihazlar kullanılmaktadır. 

Ayrıca hem girdi hem de çıktı cihazı olarak magnetik teypler, disk ve 
disketler kullanılmaktadır. 

Tüm bunlardan başka ileri teknoloji ürünü olarak ses tanıma ve cevaplama 
cihazları da vardır. Bunlardan da bilgisayar sistemini ve diğer programları 
(özellikle kelime-işlem programlarını) çalıştırmak için günümüzde faydalanıl- 
maktadır. 

Yukarıda bahsedilen çıktı cihazlarından olan monitörlerdeki yeni gelişme- 
lerle ekran çözünürlüğü (resolution), renk sayısı, hız ve kapasitesi (grafik gös- 
terimi için) oldukça artırılmıştır. Ayrıca dokunmatik hale getirilip, klavye 
gibi de kullanılmasına başlanmıştır. Bunlardan başka ekran tipi olarak CRT 
(Cathode Ray Tube), gaz plazma ve LCD (Liguid Crystal Display) teknoloji- 
leri kullanılmaktadır. Tüm bu teknolojilerden kullanılan bilgisayar tipine bağlı 
olarak (PC-kişisel bilgisayar ve notebook-defter) faydalanılmaktadır. 

Tabii ki kullanılan yazıcıların da birçok tipleri vardır. Bunlar arasında 
nokta-matriksli (dot-matrix ve letter-guality). satır (line), sayfa (page). 
püskürtme tipli (ink-jet), lazer olanları vardır. Yazıcı hızları da bilgisayar 
sistemlerinin hızlarma ayak uydurmak için sürekli artırılmaktadır. 


1.2.6 İkilik Sayı Sistemleri 


Bilgisayarlar, verileri hangi birim kullanılırsa kullanılsın, 0 ve 1'in kombinas- 
yonunu kullanarak ikilik düzende depolama yaparlar. Bilginin temel birimi 
bittir. Bir doğru-yalnış veya evet-hayır veya açık-kapalı ile sağlanan bilgi mik- 
tarıdır. Yani bu iki durumdan sadece birini temsil eder. Sembolik olarak iki 
durumu temsil eden basamaklar 0 ve I'dir. Herhangi bir anda bir elektrik dev- 
resinden bir akım geçebilir veya geçmeyebilir. Akım bir tek yönde veya tersi 
yönde akabilir. Gerilim yüksek veya düşük olabilir; bir manyetik kaydedicinin 
bir unsuru manyetik olabilir veva olmayabilir. Bunların her biri iki elektriksel 
değerin bir alternatifi olup, bunlardan sadece birisi varolur. 

Bitlerin en iyi uygulama alanlarından biri de ikilik sayı sistemidir ve sayılar 
Olar ve I'lerden oluşan bir dizi karakterden oluşur. Bunun altında yatan esas 
Tablo 1.1 de verilmektedir. 


Bu tablodan, ikilik değerin sonuna bir sıfır eklemenin onluk düzendeki 
sayının iki ile çarpımına karşılık geldiği görülmektedir. Bu tablo değerlerinin 
birleştirmesiyle onluk düzendeki diğer sayılar türetilebilir. 


3-11 (241) 5-101 (411) 6-110 (412) 7-111 (443) 
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Tablo 1.1: 


Sayı İkilik Değeri 


0 0 

Il 1 

2 10 
4 100 
8 1000 
16 10000 


— 


Bu örneklerden 0 ile 7 arasındaki sayılar için sadece 3 bit'e (000—111) 
ihtiyaç olduğu aşikardır. Daha büyük sayılar için bit gereksinimi artmaktadır. 
Bütün sayıların ve karakterlerin bit bazında kodlanmalarına standartlar geti- 
rilmiştir. Bunlardan EBCDIC (Extended Binary Coded Decimal Interchange 
Code-Genelleştirlmiş İkilik Kodlu Ondalık Değişim Kodu) karakter başına 8 
bit kullanır. Bunun anlamı da 256 kombinasyonun mevcut olmasıdır. Sadece, 
0 ile 9 arasındaki ilk 10 basamak için, ilk dört bit II11 olarak atanır. Ör- 
neğin, bazı sayısal ve alfa sayısalların ikilik sistemdeki kodları 311110011, 
711110111, A—11000001, Z—11101001 v.s olmaktadır. 


Başka kodlama sistemleri de geliştirilmiştir. Bugün en yaygın olarak kul- 
lanılan kodlardan biri de ASCII (American Standard Code for Information 
Exchange - Amerikan Bilgi Değişimi Standard Kodu) olup, 7 bitlik bir koddur. 
Kodlamalardaki kargaşayı gidermek ve bir standardlaşmaya gitmek amacıyla 
birarayaya gelen iletişim endüstrisinin ortaya koyduğu bir koddur. Bu kodlama 
sistemi 128 pattern sunmaktadır. Bunlardan bazıları 0—0110000, 10110001, 
9—0111001, A—1000001, Z—1011010 v.s dir. 


13 BİLGİSAYAR DİLLERİ VE PROG- 
RAMLAMA 


Bilgisayarların problem çözme aracı olarak kullanılmaları için, bilgisayarlar ve 
kullanıcıları arasında bir iletişimin kurulması gerekir. Bilgisayarlar, bir an- 
lamda, 0 ve | ile temsil edilen iki karakterden oluşan bir alfabeye dayanan, 
elektriğin diliyle konuşurlar. Bu “Makina Dilinin” detayları bilgisayar tasar- 
landığında üretici firma tarafından belirlenir. Diğer taraftan, insanlar, doğal 
olarak, kendi ana dilleriyle konuşurlar. Bu iletişim engeli bir şekilde aşıl- 


malıydı. İşte, bu iletişimin sağlanması işlemine programlama denir. Yıllar 
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boyunca birçok programlama dilleri geliştirildi ve birçoğu da zamanla yok 
oldu. Kullanıcı basamak basamak ne yapılacağını detaylı talimatlarla ma- 
kinaya bildirir. Bu talimatların makina diline çevirisi, üretici firma tarafından 
geliştirilen ve bilgisayarın belleğine yerleştirilen programlar ile gerçekleştirilir. 
Bu tür çevirici programlara derleyici veya tercüman adı verilir. 

Üretici firma veya bunlara hizmet veren firmalar ayrıca makinanın etkin bir 
şekilde kullanılması için gerekli bir takım programlar hazırlarlar. Bunlar bil- 
gisayardaki bilgilerin saklandığı yerlere ait kayıtları, tarih, boyut ve isimlerine 
göre tutması, istenen bilgilerin ekrandan veya yazıcıdan çıktısının alınması v.s 
gibi işlemlerde kullanılırlar. Bu programların tümüne birden işletim sistemi 
adı verilir. Günümüzde P€©lerde kullanılan en yaygın işletim sistemleri MS- 
DOS veya IBM-DOS tur. Main-frame olarak adlandırılan çok kullanıcılı devasa 
bilgisayarlarda farklı işletim sistemleri kullanılmaktadır. 


1.3.1 Bilgisayar Dilleri 


Günümüzde ihtiyaca göre bilgisayarlar geliştikçe; bunların kullanılmasına, 
çalıştırılmasına ve ihtiyaç durumuna göre bilgisayar dilleri de gelişmektedir. 
Kullanılan programlama dilleri bilgisayarın belleğinde bulunan çevirici, der- 
leyici veya benzer bir program ile makina diline çevrilir ve arzu edilen işlem 
yerine getirilir. 

Zamanımızda kullanılan programlama dilleri arasında FORTRAN, BASIC, 
PASCAL, COBOL, C. gibi diller bulunmaktadır. Bu dillerden başka, özel 
amaçlı bilgisayarlarda kullanılan askeri, sivil amaçlı diller de vardır. Yukarıda 
bahsedilen diller arasında amaçları bakımdan farklar olsa da kullanılan prog- 
ramlama mantığı açısından pek fark yoktur. FORTRAN (FORmula TRANSs- 
lation) adından da anlaşıldığı gibi matematiksel hesapların (mühendislikteki 
olduğu gibi) yoğun olduğu dallarda kullanılır. BASIC ise genel amaçlı ve 
kullanımı kolay olan bir dildir. PASCAL, vine FORTRAN gibi, matematik- 
sel hesaplarda ve genel amaçlı olarak kullanılan bir dildir. COBOL ise ticari 
amaçlı işletmelerde kullanılan bir programlama dilidir. € ise bilimsel alanda 
ve genel amaçlı kullanılan oldukça gelişmiş bir dildir. Tüm bu dillere yüksek 
seviyeli diller denir. Bir de düşük seviyeli diller vardır. Bunlardan en çok 
kullanılanı ASSEMBLY dilidir. Bir makina dili olmakla beraber programcılar 
tarafından donanımları programlamada kullanılır. 


Bu diller arasındaki fark (amaçlarından başka) bu dillerde kullanılan de- 
yimlerdir. Bazılarında aynı tip deyimler aynı amaçlar için kullanılır. Ama 
çoğu zaman kullanılan deyimler farklıdır. Fakat kullanılan deyimler ve komut- 
lar İngilizce dilinden alınmış kelimeler veya kısaltmalardan oluşur. 
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Bilgisayarlar geliştikçe kullanılan tüm bu diller geliştirilmekte veya yeni 
diller ortaya çıkmaktadır. 


1.3.2 Bilgisayar Yardımıyla Problem Çözme 


Bir bilgisayar aracılığıyla problem çözmek için öncelikle çözülecek problemin 
türüne uygun bir programlama dili seçilmelidir. Fen ve mühendislik bilimlerine 
en uygun programlama dili FORTRAN olmasının nedeni diğer programlama 
dillerinde üstünde fazla durulmayan ve bu bilim dallarında yaygın olarak kul- 
lanılan fonksiyonlar ve programlama komutlarının, bu dilde mevcut olmasıdır. 
Örneğin, A ve B kompleks iki sayının çarpımını diğer dillerde yapmak için 
daha uzun süren bir dizi işlem yapmak gerekirken, FORTRAN ile bu işlem 
kisaca A * B şeklinde tanımlanabilmektedir. Bu nedenle kompleks analizin 
yoğunlukla kullanıldığı bir problemin çözümünde başka bir dilin kullanımı zor 
ve yoğun bir programlama gerektirecektir. 


Problem çözmenin adımları aşağıdaki sırayla verilebilir: 


1. Problemin tanımlanması (fiziksel sistemi idealleştiren bir matematiksel 
modele çevrilmesi ve matematiksel denklemlerin formülasyonu), 


2. Problemin çözümüne uygun bir algoritmanın tesbiti ve detaylı bir akış 
şemasının hazırlanması (problemin çözümü için adım-adım talimatlar 
dizisinin çizimsel gösterimi), 


3. Programın bir programlama dilinde kodlanması (kaynak programın 
hazırlanması), 


4. Programın bilgisayara bir girdi birimi vasıtasıyla, genellikle klavye, girişi 
ve yedek birimde (diskette) depolanması, 


. Programın programlama diline uygun bir derleyici yazılım ile derlenmesi 
ve bağlanması, 


Ü 


6. Programın test edilerek, istenen işlemleri yapıp yapmadığının kontrol 
edilmesi, 


1 


. Program çalıştırılarak merkezi işlem biriminde, aritmetik ve kontrol bi- 
rimleri ile depolama biriminin gerektikçe kullanımı, 


8. Sonuçların bir çıktı birimine (ekran veya yazıcı) veya diskete aktarılması. 


Bu sırayı takip etmek problem çözme zamanını kısaltır; aksi takdirde 
yapılan hataları tesbit etmek için uzun ve sıkıcı bir süre program ile boğuş- 
mak zorunda kalabilirsiniz. Kısacası çözeceğiniz problemi, programlamaya 
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e 


başlamadan önce nasıl çözeceğinizi çok iyi bilmeniz gerekir. Bu nedenle prob- 
lem çözme teknikleri, genellikle, programlama tekniklerinden daha fazla önem 
kazanmaktadır. 


1.3.3 Program Derleme ve Bağlama İşlemleri 


Bilgisayar programı yazım aşamasında kullanımı arzu edilen dilde, örneğin 
BASIC, kodlanır. Kodlanan bu programa kaynak programı (source program) 
denir. Kişisel bilgisayarlardaki kütük kullanımlarında, kütük ismileri bir uzantı 
ile beraber kullanılır. Bu uzantı BASIC kaynak programlarında, .BAS şek- 
lindedir. Örneğin, MATRIS ismini taşıyan bir kaynak programının tam ismi 
MATRIS.BAS olur. 

Bilgisayar, maalesef, kaynak programının dilinden anlamaz. Bu programı 
makinanın (bilgisayarın) anlayacağı bir dile çevirmek gerekir. Bu nedenle, 
üretici veya yan firmalar tarafından, herhangi bir dilde yazılan programları 
makina diline çeviren bir yazılımlar hazırlanır. Bu tür yazılımlara çevirici (in- 
terpreter) adı verilir. Çeviriciden geçirilen kaynak programında programlama 
kurallarına uymayan veya yalnış kullanılan deyimler varsa, bunlar tesbit edilir 
ve kullanıcı uyarılır. Bu tür hatalara çevirici hataları denir ve derleyici kul- 
lanım kılavuzları bu hataların listesini ve anlamını içerir. Program çevirici işle- 
minden mutlaka hatalardan arındırılmış olarak geçilmelidir. Çeşitli firmaların 
piyasaya sürdüğü BASIC çeviricileri vardır. Bunlardan PCler için hazırlanan- 
lardan bir kaçı MicroSoft OBASIC, GWBASIC ile merkezi bilgisayarlar (main 
frame) için ise, WBASIC dır. 

Program çeviriciden satır satır geçirilirken çalışır ve sonuçlar isteğe göre 
ekrana veya bir kütüğe aktarılır. 

Bazı çeviriciler ise aynen derleyiciler (complier) gibi programın .0BJ 
kütüğünü hazırlayıp LINK.EXE programı yardımı ile kaynak programının 
çalışabilir haldeki .EXE kütüğünü oluşturur. Daha sonra bu .EXE uzantılı 
kütük çalıştırılarak sonuçlar elde edilir. 


1.4 ALIŞTIRMALAR 


1.1 Bir kişisel bilgisayardaki (PC) girdi, çıktı ve işlem birimlerini tanımlayınız. 
Girdi birimi birden fazla olabilir mi? 


1.2 Bir bilgisayarın sabit disk ve esnek disk unsurundan bahsederken ne kaste- 
diliyor? Aralarındaki farklar nelerdir? 
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1.3 Bir PC için yazılım, donanım ve bellenim unsurlarına örnekler veriniz. 


1.4 ANSI ve ASCTI terimlerini tanımlayınız. Bu iki kısaltma arasında bir 
yakınlık var mıdır? 


1.5 FORTRAN, PASCAL, C, COBOL ve BASIC dilleri hangi alanlarda kul- 


lanılmaları için tasarlanmışlardır? 


1.6 Aşağıda ikilik düzende verilen sayıların ondalık düzendeki gösterimini bu- 
lunuz. 


11011011 10111011 00110101 11100010 


1.7 Bilgisayarda bir mektup yazmak ve grafik çizmek isterseniz, bunu nasıl 
başarır sınız? Uygulama programları deyimi size ne ifade ediyor? 


1.8 Çözmek istediğiniz herhangi bir problemi bilgisayara nasıl anlatırsınız? 
Bilgisayar size nasıl cevap verir? 


Bolüm 2 


GW-BASIC KOMUTLARI VE 
KULLANIMI 


2.1 PPROGRAMININ YÜKLENMESİ 


GW-BASIC programı BASIC programlama dilinde hazırlanan programların 
yazılmasına olanak tanıyan, program hazırlandıktan sonra çalıştıran, eğer hata 
varsa program hatalarını programcıya bildiren, bu hatalar da düzeltildikten 
sonra çalışan programda gerekli işlemlerin yapılmasını sağlayan bir yazılımdır. 
Bu program olmaksızın hazırlanan kaynak programı bilgisayarın alayacağı dile 
çevirmek olanaksızdır. Diğer bir deyişle, kaynak programında hazırlanan ko- 
mutları bilgisayarın anlayacağı dile çevirerek bilgisayar ve programcı arasında 
bir arabirim görevi yapar. 

BASIC dilinde programlama yapabilmemiz için öncelikle GW-BASIC prog- 
ramını bilgisayarın hafızasına yüklememiz gerekir. Bunun için yapılması 
gerekli işlemler sırasıyla şunlardır: 


1. Bilgisayarınıza güç vermek için ON buttonuna basarak çalıştırınız; 


2. Sistem disketinizi (yani, MS-DOS disketini) A sürücüsüne koyduktan 
sonra klavyedeki RETURN (RET) veya ENTER tuşuna basınız; 


3. Eğer GW-BASIC programını sistem disketinden başka bir diskette sak- 
lıyorsanız. bu durumda programın bulunduğu disketi A sürücüsüne 
koyunuz ve aşağıdaki deyimi A> işaretinin yanına giriniz. 


A>gwbasic (veya) A>GWBASIC 


Bu aşamalar sabit disketi olmayan bilgisayarlar verilmiştir. Eğer bilgisa- 
yarınızda bir sabit disketiniz varsa, bilgisayar açıldıktan sonra C> komut satırı 


lT 
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ile karşılaşırsınız. Satın aldığınız GW-BASIC programını buraya kopyalayınız. 
Bilgisayardaki diğer dizinler ile karışmaması için programı ve BASIC çalışa- 
cağınız bir yer hazırlamakta fayda vardır. Bunun bir defaya mahsus olmak 
üzere, aşağıdaki işlemleri aynı sırayı takip ederek yapınız. 


1. Bilgisayarınızı çalıştırınız. C> komut satırı ile karşılaşınca C>MD BASIC 
komutunu giriniz ve RETURN veya ENTER tuşuna basınız. Bu komut 
size sabit diskette BASIC adı altında bir alt dizin yaratacaktır; 


2. C>CD BASIC komutuyla yeni yaratmış olduğunuz çalışma dizinine geçi- 
niz; 


3. Satın aldığınız GW-BASIC disketini A sürücüsüne koyduktan sonra 
C>COPY A:*.* komutuyla disketteki bütün kütükleri çalışma bölgenize 
kopyalayınız; 


Bu işlemi tamamladıktan sonraki bilgisayar girişlerinde yapılması gereken tek 
şey yukarıda verilen 2.ci aşama yapılarak BASIC dizinine geçmektir. Program 
aşağıdaki komutlar ile çalıştırılır: 


C>gubasic (veya) C>GWBASIC 


Programını orijinal patentli adı GWBASIC'tir. Fakat bu isim MS-DOS 
komutlarından REN kullanılarak istediğiniz ismi taşıyan bir program adına 
değiştirebilirsiniz. Örneğin, programın ismini GW'ye çevirmek istersek, bil- 
gisayara girilmesi gereken komut > işaretinden sonra 


A> (veya) C>REN GWBASIC.EXE GW.EXE 


olmalıdır. DOS komutlarının kullanımına ilişkin daha detaylı bilgiler için bir 
DOS kullanım kılavuzuna başvurunuz. 


Programı yukarıda bahsedilen çalıştırma işlemi yapıldıktan sonra ekranda 
aşağıdaki menüyle karşılaşacaksınız. 


GW-BASIC 3.23 

(c) Copyright Microsoft 1983,1984,1985,1986,1987,1988 
60300 Bytes Free 

Ük 


Ekranın alt kısımında ise bazı komutların fonksiyon tuşlarına (yani, FI-F10) 
yapılan atamalar gösterilmektedir. Bu tuşlara çok sık kullanılan bazı komutlar 
kodlanmıştır; bunların klavyeden uzun zaman harcayarak girilmesi yerine tek 
bir tuş ile ekranda yazılması sağlanır. 
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Tablo 2.1: GW-BASIC Fonksiyon Tuşları Atamaları 


TUŞ KOMUT AÇIKLAMA 


FI LIST Programın tamamını veya bir kısmını ekrana verir 

F2 RUN Hazırlanan programı çalıştırır 

F3 LOAD BASIC dilinde yazılmış bir programı yükler 

F4 SAVE Yazılan programı ek belleklerde (disket) saklamak için 
kullanılır 

F5 CONT Program içinde herhangi bir yerde durdurulan prog- 
ramın çalışmasına devam etmesini sağlar 

F6 LPTI Yazıcı çıkışı 

FT OTRON Programın hangi satırları çalıştırdığını gösterir 

FS TROFF (FT fonksiyonunu iptal eder 

F9 KEY Bilgisayara daha hızlı girebilmek için 15 karaktere kadar 
olan bir alfasayısalı belleğe depolayabilir 

FIO SCREEN Ekranın özelliklerin değiştiren fonksiyondur. 


GW-BASIC'in komut satır genel formatı: 
gwbasic isim) (<stdin)|/>)/>stdout|//f:n|(/1J(/s:n)|//e:n)(/m:fn)(.n)|//4) 


şeklindedir. Burada kullanılan argümanlara ilişkin açıklamalar Tablo 2.1'de 
verilmektedir. 


isim BASIC kaynak programının bulunduğu kütük ismidir. Eğer kütük yeni 
ise program bu kütüğe .BAS uzantısı ekler. Eski kütüklerin de mutlaka 
.BAS uzantısı olmalıdır; 


stdin stdin ismi ile verilen kütükten veri girişinin okunması gerektiğini belirtir; 
stdout çıktının yer alacağı kütük ismidir; 


/f:n programın çalıştırılması esnasında açılabilecek maksimum kütük (çıktı 
kütüğü) sayısını belirtir; 


/i otomatik olarak kütükler için ayrılması gereken yerlerin ayarlanmasını ya- 
par; 


/s:n kütük kullanımında maksimum sağlanabilecek kütük kayıt uzunluğunu 
belirler. Maksimum kayıt uzunluğunu (hacmi) 32767'dir; 
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/d programdaki aritmetiklerin çift hassasiyetle hesaplanmasını sağlar; 
Örnekler: 


>GWBASIC PROGİ 

>GWBASIC PRO/F:6 

>GWBASIC BENIM>CİKTİI.DAT 

>GWBASIC BENİM<GİRDİI.DAT> CIKTI.DAT 


Birinci ifadede PROGI.BAS isimli kütük programa yüklenir ve çalıştırılır. 
İkincisinde PRO.BAS isimli kütük yüklenir ve çalıştırılır; her biri 64 Kb olan 
altı kütük kullanır. Üçüncü komutta ise BENIM.BAS adındaki kütük yük- 
lenir ve çalıştırılır; sonuçlar CIKTI.DAT isimli kütüğe yazılır. Son komut ile 
BENIM.BAS programı yüklenir ve çalıştırılır. Programa temin edilecek girdiler 
GIRDI.DAT kütüğünden alınır ve çıktılarda CIKTI.DAT kütüğüne yazdırılır. 


2.2 GW-BASIC KOMUTLARI 


Her paket program, programa kütük yükleme, kaydetme v.b işler için bir takım 
komutlar ile donatılmıştır. GW-BASIC yazılımının da bu bağlamda diğer 
paket programlardan bir farkı yoktur. GW-BASIC editörünün sahip olduğu 
bazı komut ve/veya fonksiyonlar ve işlevleri aşağıda verilmektedir: 


AUTO 


Her RETURN tuşuna basıldığında satır numarası açar. 


AUTO İsatır nosull,artışlar| (ya da) 
AUTO .|,lartışlarl|) 


Örneğin; AUTO 40,5 komutu 40'tan başlayarak 5'lik artırımlarla yeni satırların 
açılmasını sağlar (40, 45, 50, 55 gibi). 

Nokta (.) işareti en son satır numarasından sonra artışların ne olması gerek- 
tiğini belirtir. Bu komutu etkisiz kılmak, diğer bir deyişle numaralandırmayı 
durdurmak için CTRL-C veya BREAK tuşuna basmak yeterlidir. 


CLS 


Ekrandaki bilgileri siler. Kullanımında CLS yazıldıktan sonra RETURN veya 
ENTER tuşuna basılması yeterlidir. 
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DELETE 


Program da satır veya satırların silinmesinde kullanılır. 


DELETE |satır no ill-satır no 2) (ya da) 
DELETE satırnoi - 


Birinci kullanımda iki satır arasındaki program deyimlerinin silinmesini gerçek- 
leştirir. Örneğin; DELETE 40 deyimi sadece 40. satırı siler. 

DELETE 40-100 komutu 40-100 arasındaki satırları (40 ve 100 dahil) siler. 
DELETE -40 komutu 40. satıra kadar (40. satır dahil) olan satırları siler. Öte 
yandan, DELETE 40- komutu (40. satır dahil) bundan sonraki tüm satırları 
siler. 


EDIT 


Belirtilen satırı ekranda gösterir ve imleci (cursor) satır boyunca ileri ve/veya 
geri hareket ettirme tuşları vasıtasıyla hareket ettirerek düzeltilmesi gereken 
yerlerin değiştirilmesini sağlar. Kullanım şekli; 


EDIT satır nosu 


Örnek olarak, EDIT 150 ifadesini ele alırsak; bu komut 150. satırı ekrana 
getirir. 


FILES 


Belirli bir sürücüdeki program isimlerinin ekranda gösterilmesinin sağlar. Kul- 
lanım şekli bir kaç türlüdür: 

Sadece FILES komutu çalışma dizinindeki bütün kütüklerin isimlerini 
ekrana verir (MS-DOS'un DIR komutu gibi çalışır). 

FILES "*.bas" komutu ile çalışma dizinindeki kütüklerden uzantısı sadece 
.BAS olanların isimlerini ekrana getirir. 

FILES "A:*.*" komutu A sürücüsündeki bütün kütüklerin isimlerini 
ekrana getirir. 

FILES "dene*.bas" komutu isimlerinin ilk dört harfi DENE ve BAS uzan- 
tılı bütün kütüklerin isimlerini ekrana getirir. 

FILES "a:basics.bas" komutu A sürücüsünün BASICS dizinindeki .BAS 
uzantılı bütün kütüklerin isimlerini ekrana getirir. 
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KILL 


Çalışma dizinindeki veya disketteki herhangi bir kütüğün bulunduğu yerde 
silinmesini sağlar. MS-DOS komutlarından DEL ile aynı fonksiyonu görmek- 
tedir. Dikkat edilecek nokta kütüğün tam isminin verilmesidir; yani uzantısı 
ile beraber. 


KILL kütük adı 


Örneğin, KILL test .bas, komutu ile TEST.BAS adlı kütük silinir. 


LLIST 


Hafızada bulunan bir programın tamamı veya bir kısmını yazıcıdan çıktı olarak 
alınmasını sağlar. 


LLIST satır nol-satır no2 o (veya) 
LLIST satırno- 


şeklinde kullanılır. 


LOAD 


Çalışma dizinindeki veya bir disketteki bir kütüğü hafızaya yükler. 

LOAD "kütük adı" |,rJ komutuyla .BAS uzantılı kaynak kütükler yük- 
lenebilir. Buradaki, r (run) seçeneği ise kütüğün yüklenir yüklenmez çalış- 
masını sağlar. Örneğin, LOAD "deneme.bas",r komutu DENEME.BAS adlı 
kütüğü hafızaya yükler ve çalıştırır. 


NEW 


Hafızadaki programın ve değişkenlerin silinmesini sağlar. Yazılan bir program 
üstünde gerekli çalışmalar yapıldıktan ve program depolandıktan (SAVE ile) 
sonra yeni bir program yazılmak istendiğinde bu komut kullanılır. 


Bu komut ile eski programa ait tüm bilgiler hafızadan silinir ve yeni prog- 
ram yazılması için hazır hale gelir. 


RENUM 


Program satırlarının yeniden numaralandırılmasını sağlar. 
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RENUM (ya da) 
RENUM İyeni nol,leski noll,artırımlar Rİ) 


şeklinde kullanılır. Örneğin sadece RENUM komutu programın bütününü 10'dan 
başlayan ve 10'luk artırımlarla yeniden numaralandırır. 


RENUM 300, ,50 komutu ile programın ilk satırı 300 ile başlar ve 50'şer 
artarak numaralandırılır. 


RENUM 1000,900,20 komutu 900 ncü satırı 1000 yapıp bundan satırları 
20'lik artırımlarla yeniden numaralandırır. 


RUN 


Hafızadaki programın çalıştırılmasını sağlar. Programın tümü başından so- 
nuna kadar çalıştırılabileceği gibi belirli satırların çalıştırılması da mümkün 
olur. 


RUN (satır nosull,r| (ya da) 
RUN kütük adı |,r) 


burada r seçeneği bütün veri kütüklerini açık tutar. 


SAVE 


Kaynak programı diskette saklamak (depolamak) için kullanılır. 


SAVE "kütük adı"l,aJ (ya da) 
SAVE "kütük adı"l,pl 


sys 


a seçeneği kütüğün ASCİTI formatında, p seçeneği ise kütüğün binary ko- 
dunda, yani ikilik kodlama şeklinde, saklanmasını sağlar. ASCTI formatında 
saklamanın avantajı MSDOS komutlarından TYPE'ın kullanılmasıyla kütüğü 
ekranda yazıldığı gibi görebilmenizdir. 


SYSTEM 


MS-DOS'a geri dönülmesini sağlar. Diğer bir deyişle GW-BASICteki çalışma 
sona erdiğinde GW-BASIC programında çıkmak için bu komut kullanılır. 


Kullanımı SYSTEM komutur girildikten sonra ENTER veya RETURN 
tuşuna basılmasıyla DOS ortamına geçilir. 


BÖLÜM 2. 


GW-BASIC KOMUTLARI VE KULLANIMI 


Bolüm 3 


BASIC PROGRAMLAMA 
DİLİNİN ESASLARI 


3.1 SABİTLER 


Sabit. programda belirli bir sayıyı tanımlar. Tamsayı ve gerçek sayı (reel) 
sabitler olmak üzere iki tür sayısal sabit kullanılır. Bir sayısal sabit 0- 
9 basamaklarından oluşur. Rakamlar arasına boşluk konulmasına müsaade 
edilir. 


3.1.1 Tamsayı Sabitler 


BASIC'de bir tamsayı sabiti, ondalık noktasına sahip olmayan herhangi bir sayı 
olarak tanımlanır. Pozitif ve negatif değerler alabileceği gibi, “sıfır” değerini 
de alabilir. Pozitif olduğu durumlarda artı işareti kullanılmayabilir. Tamsayı 
olarak tanımlanan bir tamsayı sabitinin alabileceği değerler —32768 (—2'9 — 1) 
ile 32767 (2'5 — 1) arasında değişir. Örnekler: 


1234 1900 -567 13289 12 345 
Sabitlerin arasında boşluklara müsaade edildiğinden, 12 345 geçerli bir tam- 
sayı sabitidir ve karşılığı 12345 dir. 
Tamsayıların yalnış kullanımlarına bazı örnekler ise aşağıda verilmektedir. 


1,234 -319.000 -255,670.1 


Buradaki hatalar sayı içinde virgül, ondalık noktası veya her ikisinin kul- 
lanımından kaynaklanmaktadır. 


K> 
er 
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3.1.2 Gerçek Sayı Sabitler 


Bir ondalık sayıya reel veya gerçek sayı denir. Bu sayılar aynı şekilde pozi- 
tif veya negatif olabilirler. Gerçek sabitlerin alabileceği değer aralığı 3.E-39 
(3 x 10-5) ile 1.7E-4-38 (1.7 x 109) (Bu aralık bilgisayar tipine göre değişir) 
arasındadır ve gerçek sabitler mutlaka ondalık noktası içermelidir. 

Gerçek sabitler iki türlü ifade edilebilir: (1) sabit-nokta ve (1i) yüzer-nokta; 
yani üstel, şekilde ifade edilebilen gerçek sabit. Sabit-nokta sabitlerden, (1) 
grubuna örnekler şöyle verilebilir: 


2.0 41 0.2 .05615 s3 2.41 


Yüzer-nokta sabit “E” (veya “e”) harfi içeren ve on'un kuvveti ile çarpımını 
veren sayılardır. Bu sayı “esas” ve “üst” olarak iki kısımdan oluşur: aEn 
(Za x 10”). “Esas” kısım (a) ondalık noktası içeren bir sayıdır. “Üst” ise (rn) 
tamsayı olmalıdır. Örneğin, 


21P2 210 (2.1 x 107) 
.0004E--3 0.4 (.0004 x 109) 

135e-2 o 0.00135 (.135x107) 
123 34F-1 0.12334 (1.2334x 10-1) 


Yukarıdaki örnekleri incelediğimizde esas kısımlar sırasıyla 2.1, 0.0004 ve 
0.135 tir; diğer taraftan üstler 2, 4-3 ve —2, yani tamsayı, olmaktadırlar. 


Gerçek sabitlerin yalnış kullanımına bazı örnekler aşağıda verilmektedir. 
325129.5 -1.7873E-0,5 1/2 


Bu hatalar şöyle sıralanabilir; 32.129.5 sayısında virgül kullanımı, 344 sayısının 
ondalık noktası içermemesi, üstün (0.5'in) tamsayı olmaması ve 1/2 sayısının 
kesirli olarak kullanımı. 


3.1.3 Çift Hassasiyetli Sabitler 


Bir çift hassasiyetli sabit de aslında bir gerçek sayıdır; yanlız sayının basamak 
hassasiyeti daha fazladır. Bir çift hassasiyetli sabit 3.D-39 ile 1.7D--38 arasında 
değerler alabilir. Buradaki D harfinin anlamı, yüzer-nokta sayıları ifade etmede 
kullanılan E harfi ile aynıdır; yalnız D sayının çift hassasiyetli olduğunu belir- 
tir. Bu sabitlerde ondalık noktasından itibaren 14 ile 16 basamağa kadar kısmı 
bellekte saklanır ve bu basamaklar ile işlem yapılır. Oysa bu basamak has- 
sasiyeti gerçek sabitlerde, bilgisayarın türüne göre, 7 ile 8 arasında değişmek- 
tedir. Örnekler: 


VB 
—I 
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1.2388 -1.788 4# 3.48D0-25 1.6d*3 
3.1.4 Mantıksal Sabitler 


Bir mantıksal sabitin alabileceği değerler “doğru' (-1) veya “Yalnış' (0) tır. 


Kullanım Şekli Karşılığı 


-i DOĞRU 
0 YANLIŞ 
Örnekler: 
A > -i OK 0 


3.1.5 Alfasayısal Sabitler 


Bir alfasayısal sabit, çift tırnak işareti (” ) ile kapatılan ve sembol ile harflerden 
oluşan karakter topluluğudur (string). Alfasayısal, bellekte içerdiği boşluklar 
ile beraber ekranda gözüktüğü gibi, depolanır. Bir alfasayısal sabitinin içere- 
ceği minimum sembol sayısı bir'dir. 

Alfasayısal sabitin uzunluğu (karakter sayısı) iki tırnak işareti içinde kalan 
karakter sayısıdır. Örneğin aşağıda verilen tabloda çeşitli alfasayısallar ve 
uzunlukları verilmektedir. 


Bazı geçerli alfsayısal sabitlere örnekler: 


“TEL: (222) 234 56 78" "AHMET" “Na ; 172” 
“$1,200" b "10,000 TL" 


3.2 DEĞİŞKENLER 


Normal cebirsel işlemlerde olduğu gibi, fiziksel miktarlar sembol veya harflerle 
ifade edilmekte (örneğin kütle m, yoğunluk p v.s) ve bunlarla m — pV gibi 
aritmetiksel işlemler yapılabilmektedir. Bu sembol veya harflerin her birine 
değişken denir. BASIC'te da programın başından sonuna kadar değeri bir- 
den fazla değişen harflere veya isimlere değişken denir ve değişkenler aşağıdaki 
kurallara uyarlar: 


1. Değişken ismi harf veya sayıların kombinasyonu olabilir; fakat mutlaka 
Ingilizce alfabedeki bir harf ile başlamalıdır. Özel karakter veya sembol- 
lerin kullanımına müsade edilmez (4. —, /.*, . a, 8. 0,x,/1,&....). 


— 
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Ayrıca Türkçe'de kullanılan 1, İ, ç, Ç, ş, $, 8, Ğ,ü,Ü,ö, Ö harfleri de 
hiç bir suretle değişken veya sabit tanımında kullanılamazlar. Ancak , 
!, # işaretleri değişken isminin sonuna ilave edilerek, değişkenin tipini 
(tamsayı, mantıksal, gerçek sayı v.s) belirlemede kullanılır. 


. Bir değişken ismi en fazla 40 karakter ile sınırlıdır; bu sınırı aşamaz. 


. BASIC dilinde kullanılan, READ, PRINT, DATA,IF, REM, NEXT v.s 


gibi deyim ve/veya komutlar değişken olarak kullanılamaz. 


. Aynı değişken ismi, başka amaçlar için, birden fazla kullanılamaz. 


. Değişken ismi FN ile başlayamaz; çünkü bu iki karakter ile başlayan 


değişkenler fonksiyon olarak kabul edilir. 


. Bir değişken, programda kullanılmadan önce, değişkene bir değer atan- 


malıdır. Aksi takdirde aldığı bellek değeri değişkenin tipine göre 0 veya 
0.0 veya alfasayısal ise “boşluk” (yani © ”) olacaktır. 


. Bir değişken ismine DIM deyimi ile boyut kazandırılarak, indisli değişken 


adını verdiğimiz değişken haline getirilir. Böylece indisli değişkenlerde bir 
isim ile çok sayıda değişkeni gösterebilme olanağı sağlanır. Örneğin, /a|)— 
(aş, a3,a3,..., aç) tek boyutlu, (b)—Jbıı, biz, s.., ba 15 622 e niş Dns 
s4 Ön.nl ise iki boyutlu bir indisli değişkeni temsil etmektedir. 


Değişkenler, bilgisayar terminolojisinde bellek alanının adı olarak tanım- 
lanır. Hatırlanması gereken önemli bir özelliği, bellek alanına bilgi yazıldığında 
önceki bilgilerin silineceği, bellek alanından bilgi okunduğunda ise bellek 
alanındaki bilgilerin aynen korunacağıdır. 


BASIC dilinde değişkeler de tamsayı, gerçek sayı, mantıksal, alfasayısal 
ve çift hassasiyetli değişkenler olarak guruplandırılabilir. Bir değişkenin bu 
guruplardan hangisine ait olduğu aşağıdaki şekilde belirlenir. 


“e karakteri değişkenin tam sayı olduğunu belirtir (A4). 

$ karakteri değişkenin bir alfasayısal değişken olduğunu belirtir (A$) 

karakteri değişkenin bir matıksal değişken olduğunu belirtir (A). 
bir gerçek sayısal değişkeni belirtir (A). 

! tek hassasiyetli değişkeni belirtir (A). 

# çift hassasiyeti belirtir (A#). 


GW-BASIC'te çalışıldığında, sayısal değişken ismi otomatik olarak tek has- 
sasiyetli kabul edilir. Yani değişken ismini takiben (!) işaretinin kullanılmasına 


gerek yoktur. Örneğin, aşağıdaki değişkenler otomatik olarak tek hassasiyetli 
değişkenlerdir. 
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X12 AB A2 XYZ 


Aşağıdaki değişkenler ise çift hassasiyetli oldukları # işaretinden anlaşılmak- 
tadır. 


X12# ABA A2# XYZ# 


# işaretinin yerine $ (dolar) işaretinin konması. değişkenin tipinin bir al- 
fasayısal olduğunu belirtir. 


X12$ AB$ A2$ XYZ$ 
Bazı örnekler: 


ABC-12.345 XY3#-1.2345D-7 FIY!-12345 
AD$—" AHMET" KOD/-45 EVET/>-1 


3.3 ARİTMETİK İFADELER 


Aritmetik ifadeler daha önce değer atanan sabit veya değişkenlere birden fazla 
aritmetik işlemin uygulandığı talimatlardır. İfade C—A--B gibi oldukça basit 
olabileceği gibi, birkaç satırı işgal edebilecek uzunlukta ve karmaşıklıkta da 
karşımıza çıkabilir. Aritmetik işlemler yapılarak, ifadenin solundaki değişkene 
hesaplanan bir tek değer atanır. 


Normal aritmetik işlemler BASIC'de aşağıdaki semboller ile gerçekleştirilir. 


*- Toplama * Çarpma 
— Çıkarma / Bölme 
“ Üstalma 


Aritmetik ifade oluşturmak için ortaya konan kurallar şunlardır: 


1. Bir işlemde iki aritmetik operatör yan yana kullanılamaz. Bazı durum- 
larda GW-BASIC iki operatörün yan yana kullanımını kabul eder, ancak 
işlem sizin arzu ettiğiniz şekilde yorumlanmayabılır. 


2. Çarpma, bölme ve üst alma işlemleri iki sayı veya değişken ile beraber 
kullanılır. Örneğin, 


X*Y Z2/3.0 A2 


BASIC'de aritmetik ifadelerde dikkat edilecek hususlar şunlardır: 
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I. Çarpma işlemi cebirdeki şekilde basitleştirilemez. Örneğin, a(b--c) ifadesi 
A(B*C) olarak değil A*(B*C) olarak yazılmalıdır. 


2. Yan yana kullanılan operatörlere dikkat edilmelidir. Örneğin, 


Geçersiz İfade Geçerli İfade Cebirsel İfade 


X-3 X (<3) gi 
X*/D — Belirsiz 
B*-3.0 B*(-3) veya —3b 
(C3)#B 


3. Bazı aritmetiksel terimler cebirde olduğu gibi parantezler ile gurup- 
landırılabilir. Sadece *(”, *)' parantezleri kullanılabilir ($ ) veya | | paran- 
tezleri kullanılamaz). 

İl İşlem Sırası 


Bilgisayarın, aritmetik işlemleri yaparken, izlediği bir dizi kural vardır. Bunlar: 


1. Parantez içindeki işlemler öncelikle hesaplanır. En içteki parantezli 
işlemler önce, dıştakiler en son olarak hesaplanır. 


2. Üstel ifadeler hesaplanır. 
3. Çarpma ve bölme işlemleri eşit önceliğe sahiptir. 


4. Toplama ve çıkarma (eşit öncelikli) işlemleri yapılır. 


o 


Aynı derecede önceliğe sahip aritmetik işlemler (toplama ve çıkarma 
gibi), soldan sağa doğru bir sırayı takip ederek hesaplanır. 


Bu örnekleri incelersek A*B*C ifadesinde, önce A*B hesaplanır; sonuç C ile 
toplanır. 


€ e3 
a-b-* jİ 
aritmetik ifadesinde işlem sırası (1) F72, (ii) A*B, (iii) C/D, (iv) (iii)*(1), (v) 
(i1)*(iv) şeklinde olur. 
Bazı aritmetik ifadelerin kullanımlarına ilişkin değerlendirmeler Tablo 


3.1'de özetlenmektedir. Bunları dikkatle inceleyerek BASIC'de aritmetik iş- 
lemlerin uygulanmasını kavramak önem taşımaktadır. 
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Tablo 3.1: Aritmetik işlemlerin uygulanma şekli ve sıkça yapılan hatalar. 


işlem Yalnış İfade Doğru İfade 
(yiz) X(Y#Z) X*(Y-#-Z) 
giti XY42 X1Y42) 
X*Y/Z*T X*Y/(Z*T) veya 
i X*Y/Z/T 
(<a) —XY (—XJ7Y 
usdilylr Asxe'i)e X—3.2646 


Tamsayılar ile yapılan aritmetik işlemlerin sonucu da bir tamsayı ile 
sonuçlanır. Bu noktayı özellikle tamsayılarla bölme işlemlerinde mutlaka hatır- 
lamalısınız; çünkü iki tamsayının bölümü bir tamsayı değilse, işlem sonucu en 
yakın tamsayıya yuvarlanacaktır. 


47/24 > 24, 8/2 - 47, 3/2224, 4/31, 3/40 


Bu nedenle tamsayı değişkenler, aritmetik işlemlerde genellikle, sayaç veya 
indis olarak kullanılırlar. 


Gerçek sayılar ve değişkenler ile yapılan aritmetik işlemlerin sonucu da 
gerçek sayıdır ve tamsayılarda karşılaşılan problem burada oluşmaz. 


41/2!-2 o 81/2!154 31/2!s1.5 o41/3!-1.3333333 31/4!-0.75 


3.4 ARİTMETİK ATAMA DEYİMİ 


Bilgisayarın bir aritmetik ifadeyi hesaplayabilmesi için bu ifadede yer alan 
bütün değişkenlere, değişkenler kullanılmadan önce, atama yapılması gerekir. 
Birçok derleyici tanımlanmayan değişken için hata mesajı verir. 

Bir değişkene nasıl atama yapılır? Yani bellekteki değeri nedir? Bu soru- 
ların cevabı oldukça basittir. Bir değişkenin değeri ya ekrandan ya bir kütükten 
girilir ya da atama işlemiyle tesbit edilir. Atama yapılmayan değişkenin değeri 
sayısal değişkenler için sıfır, alfasayısallar için boş'tur. 

M değişkeninin bellek alanına 18 sayısını yerleştirme işlemi sembolik olarak 
M<e-18 ile gösterilir. Bu işleme atama deyimi denir. BASIC'de — işareti, — 
ile temsil edilir ve, dolayısıyla, M—18 atama deyimi 
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M-18 


olarak yazılır. Diğer taraftan, bilinen bir x değişkeni için z'in karesinin (2?) 
hesaplandığını ve bu değeri de Y bellek alanında depolamak istersek; yani 
Y— 2. Bu atama işlemi 


Y-X”2 


şeklinde yazılabilir. 


Genel olarak bir BASIC aritmetik atama deyiminin kullanım şekli 
Değişken ismiz—aritmetik ifade 


şeklinde olmalıdır. Eşitliğin sol tarafı sadece bir tek değişken içermelidir. 
BASIC de atama teriminin eşittir (—) sembolü ile temsil edilmesi, — sem- 
bolünün eşitliği ifade etmesi bakımından, bir talihsizliktir. Oysa atama terimi 
ile kastedilen, bellek alanına yerleştirilen veya kopyalanan değer olmasıdır. 
Unutulmaması gereken nokta kısaca (1) eşit sembolünün sağındaki arit- 
metik işlemler yapılır (2) bulunan değer eşitliğin sol tarafındaki değişkenin 
bellek alanına yazılır. 


3.4.1 Bellek Alanının Kullanımı 


Programda kullanılan her değişken için bir bellek alanı tahsis edilir. İndisli 
değişkenlerde ise alan sayısı maksimum indis sayısı ile belirlenir. Bu alan- 
ları çekmecelere benzetirsek, program değişkenlerinin tipleri atandıktan sonra 
aldıkları başlangıç değerleri SIFIR dır; yani boştur. Program içinde yapılan 
atamalar ile bu değerler değiştirilir. 

Bir bellek alanında sadece bir değer yer alır. Bu bellek alanına başka bir 
atama yapıldığında eski değer silinir; yerine yenisi yazılır. Eski ve yeni değeri 
aynı anda korumaz. Örneğin 


10 B-A*At4 

20 C-A1B 

30 C-SOR(C) 

40 PRINT A, B, C 


olarak verilen programda kullanılan değişkenler A, B, €C dir. Dolayısıyla prog- 
ramın başında bellekteki değerleri (yani 10. satırdan önce) 0 dır. İlk satırdaki 
A<—-0.0 olduğundan B—4 elde edilir. Bu andan itibaren bellekteki alan (çek- 
mece) değerlerinden sadece B'nin değeri değişmiştir. İkinci satıra gelindiğinde 
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halen A'nın değeri sıfır olduğundan C —0--(4) ifadesinden C —4 elde edilir; yani 
artık C'nin bellek değeri de 4 olmuştur. Üçüncü satıra geldiğimizde eşitliğin 
sağ tarafı eski bellek değeri sol tarafı da yeni bellek değerini oluşturmaktadır. 
Bu bilgilerin ışığı altında C — V4—2 elde edilir ki C'nin yeni bellek değeri artık 
2 dir. 


3.5 BASIC PROGRAMI NASIL YAZILIR? 


BASIC kaynak programı hazırlanır. Programda kullanılan bütün deyim ve 
ifadeler numaralandırılmalıdır. 

Daha sonra programa veriler temin edilir. Arzu edilen işlemler yapıldık- 
tan sonra hesaplanan değerlerin ekrana yazdırılması PRINT deyimini takiben 
değişken listesinin sıralanması şeklinde olur. 

Programın son iki deyimi sırasıyla STOP ve END dir. STOP deyimi prog- 
ramın çalışmasını durduran bir deyimdir. Büyük hacimli bir programda birden 
fazla STOP deyiminin kullanımı söz konusu olabilir. END deyimi programın 
en son deyimidir. Bilgisayara programın sonuna erişildiğini belirtir. 

Örneğin, Bürüt maaşı BMAAS olan bir kişinin net maaşı hesaplanmak 
istenmektedir. Bürüt maaştan emekli kesintisi alınmakta ve çalışmayan eşi için 
250,000 TL aile yardımı eklenmektedir. Net maaşın bu şekilde hesaplandığını 
varsayan bir program hazırlayalım. 


05 REM -------- MAAŞ HESAP PROGRAMI >>------ 
10 INPUT "SAHSIN BURUT MAASINI GIRINIZ "; BMAAS 
20 REM -----—- ATAMA BLOĞU -——-——— 


30 VERGIY-0.15 

40 EMEKLY-0.10 

50 ATLEYR-250000 

60 REM ------- HESAP BLOĞU ------- 
70 MAAS-(1-VERGIY) *BMAAS 

80 MAKES-(1-EMEKLY) #*MAAS 

90 NET-MAKES*ATLEYR 


100 REM 

110 REM NET MAAS EKRANA YAZILIYOR 
120 REM 

130 PRINT "NET MAAS-"; NET 

140 REM ———-———— PROGRAM SONU —-—---—— 
150 STOP 


160 END 
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3.5.1 OBASIC Programının Yapısı 


Bir BASIC programını yazarken dikkat edilmesi gereken bazı hususlar aşağıda 
verilmiştir: 


e Her program deyimi bir satır işgal etmelidir. Ancak bir satırda birden 
fazla satır oluşturmak için iki nokta üstüste (:) kullanılabilir. 


e Bir satır 120 karakteri aşmamalıdır. 


e Her satır pozitif artan bir sayı ile başlamalıdır. Bu numaraya deyim veya 
satır numarası denir. 


e Her satır BASIC dilinde kullanılan deyim ve/veya operasyonunu içerme- 
lidir. 


e Okunabilirliğe katkıda bulunmak için satır aralarına boş satırlar ilave 
edilebilir. 
3.5.2 Temel BASIC Deyimleri 
CLS 


Ekranı temizleme deyimidir. CLS(n) şeklinde kullanılır. n—0 iken ekrandaki 
hem yazı hem de grafikleri temizler, n—1I iken sadece yazı metinlerini siler. 
CLS deyiminin kullanımından hemen sonra, bu işlem imleci ekranın sol üst 
köşesine taşır. 


Bu deyim hem program içinde hem de GW-BASIC ortamında (komut ola- 
rak) kullanılabilir. Kullanım şekli 


GLS 


olarak verilmektedir. 


DATA 


Programda READ deyimleri ile burada saklı tutulan sayısal ve/veya alfasayısal 
sabitlere erişilir. Kullanımı 


DATA sabitler listesi 


şeklindedir. Sayısal sabitler herhangi bir formatta olabilir (sabit-nokta, yüzer- 
nokta veya tamsayı). Bunlar virgül ile birbirlerinden ayrılmalıdır. DATA dey- 
iminin bulunduğu satırda aritmetik veya mantıksal operatörlein kullanıldığı 
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ifadelere izin verilmez. Alfasayısal sabitler, virgül, iki nokta üst üste veya 
boşluk içeriyorsa, mutlaka çift tırnak (” ) işareti ile çevrelenmelidir. Aksi tak- 
tirde çift tırnak işaretine gerek yoktur. 

DATA deyimleri programda herhangi bir yere yerleştilebilir. Bir DATA de- 
yimi bir satıra sığabilecek kadar çoklukta sabit içerebilir ve programda birden 
fazla DATA deyimi kullanılabilir. 


READ deyimi DATA deyimlerine satır numarası takip ederek erişir. Satır 
numarası en düşük olan DATA deyimi ve sonraki DATA'lara bu sırayı takip 
ederek erişir. DATA deyimlerinde yer alan veri tipleri (sayısal veya alfasayısal) 
ile bunlara READ deyiminde karşılık gelen değişken tipleri uyuşmalıdır. Aksi 
takdirde “Type Mismatch” (Tip Uyuşmazlığı) hata mesajı ekrana gelir. 

DATA deyimleri RESTORE deyimlerinin kullanılması ile tekrar okunabilir. 
Bu işlemler hakkında daha detaylı bilgi READ ve RESTORE deyimlerinde 
anlatılmıştır. 

Örnek: 


10 READ C$,X,Y$,Z$,A 


80 DATA "BEŞ",14.13,"ALTI","DOKUZ",1.3E7 
veya 


20 READ A,B,C$,D$,E 
30 READ A2,BC,SAD$ 


80 DATA 1.3, 3.4, "ALI" ,"VELI" 
85 DATA 1.43,1.234E-3,-1234.5678E126 
90 DATA "ALTINOK" 


Her iki örnektede READ deyiminde kullanılan değişkenler ile bunlara karşılık 
gelen DATA'ların nasıl bire-bir eşleştiğine dikkat ediniz. 


END 


Programın çalışmasının durdurulmasını ve bütün kütüklerin kapatılmasını 
sağlayan deyimdir. Kullanımı, 


END 


şeklindedir. Programın herhangi bir yerine programın çalışmasını durdurmak 
için konulur. STOP deyiminden farklı olarak END deyimi ”Break in Line 
xxxx mesajı vermez. Programın sonunda yer alan END deyimi isteğe bağlıdır, 
yani istenirse konulmayabilir. 
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INPUT 


imdir. Veri sayısının nispeten az olduğu durumlarda kullanılır. INPUT de- 
yimi bir değişken için kullanılabileceği gibi birden fazla değişkenler için de 
kullanılabilmektedir. Genel kullanım şekli: 


INPUTİ;)L(prompt alfasayısal;| değişken listesi 


şeklindedir. prompt alfasayısal, INPUT deyimini takiben arzuya bağlı ola- 
rak kullanılan ve açıklama veya soru içeren bir alfasayısaldır. Değişken listesi 
bigisayara girişi sağlanmak istenen değişkenlerin listesini içerir. 

Program çalıştırıldığında, her bir satır, satır numarasına göre işlem görür ve 
program INPUT deyiminin olduğu satıra geldiğinde ekrana bir soru işareti (?) 
koyarak, kullanıcının o satırdaki değişken veya değişkenlerin sayısal değerlerini 
girmesini ister. 


INPUT deyimi kullanılırken dikkat edilecek noktalar şunlardır: 
»e Birden fazla veri girişinde her bir değişken virgül ile ayrılmalıdır. 


e prompt alfasayısal'dan sonra virgül (,) yerine noktalı virgül (;) kullanımı 
INPUT deyimiyle sağlanan soru işaretini (?) ortadan kaldırır. Bu du- 
rumda işlem soru işareti yöneltilmeden, imin ekranda gözükmesine sebep 
olur. Veri girişi tamamlandıktan sonra da RETURN tuşuna basılarak 
veri girişi tamamlanmalıdır. Bunun nedeni de program çalışırken INPUT 
deyimi ile karşılaşan program durur ve verilerin girilmesini bekler; veriler 
girildikten sonra RETURN 'e basılınca program kaldığı yerden çalışmaya 
devam eder. 


e INPUT ile girilmesi istenen veri sayısı ve tipi uyum içinde olmalıdır. 
Yani, INPUT XI,BL&.ISIMS şeklindeki bir deyimde ilk veri gerçek sayı, 
ikincisi mantıksal değişken ve üçüncüsü de alfasayısal değişken olsun. Bu 
durumda, veri girişte üç tane veri temin edilecektir. Bunların sıraları 
karıştırılmamalıdır. Aksi halde alacağınız hata mesajı “Type Mis- 
match Error” şeklinde olacaktır. Tersi durumda, yani veri fazlalığının 
olması durumunda hata mesajı “Redo From Start” (Yeniden Başla) şek- 
linde kendini gösterir. 


e Değişkenler birden fazla ise, herbir sayısal değer bir virgül ile ayrılır. 
Örneğin, sayısal değer 10,000 (onbin) ise bu sayısal değeri 10000 veya 
10 000 veya 1.E-4-04 şeklinde girilmelidir. Çift hassasiyet kullanılacaksa, 
veri girişi 10000 veya 1.D--04 şeklinde olmalıdır. 


3.5. BASIC PROGRAMI NASIL YAZILIR? 31 


e Veriler sadece sayısal ve alfasayısal değerlerden oluşmalıdır. Formüller, 
fonksiyonların, vs. INPUT deyimi ile programa girişi (temini) mümkün 
değildir. Alfasayısal değişkenlerin girişinde değerler tırnak (© ) işareti ile 
ayrılmalıdırlar. Veri girişte ilk karakter boş ise alfasayısal değerin tırnak 
içinde yazılmasına gerek yoktur. READ-DATA deyimlerinde uyulması 
gereken veri temin koşullarının hepsi uyar. 


Örneğin, ax? 4 br 4 e — 0 şeklindeki bir ikinci dereceden denklemin köklerini 
bulmak için yazılacak bir genel programda 37? — 5x 4 6 — O denkleminin 
katsayılarının aşağıdaki şekilde 


15 INPUT A,B,C 


..... 


100 END 
RUN 
? 3,-5,6 


veya her bir sayısal değer girildikten sonra RETURN (RET) veya ENTER 
(ENT) tuşlarına basılırak girilebilir; Veri temini aşağıdaki şekilde tek tek yapıl- 
mak istendiğinde 


15 INPUT A,B,C 


..... 


2 8 
? Redo from start 
? 


şeklinde bir mesaj alınır. Bu mesajın anlamı verilerin temin edildiği satırda 
programa temin edilmesi gereken sayıda veri temin edilmediğidir; yani veri 
sayısı eksik. Açıklama koymak istendiğinde ise yukarıdaki örnek, 


15 INPUT "Ikinci Dereceden Denklemin Katsayılarını Gir";A,B,C 


RUN 
Ikinci Dereceden Denklemin Katsayılarını Gir? 3,-5,6 


şeklinde olur. Burada program 15.nci satıra geldiğinde INPUT deyimi ile ve- 
rilen açıklama ekrana yazıldıktan sonra kullanıcıya yine (7?) işareti yöneltil- 
erek sabitlerin girilmesi beklenir. Bu şekilde açıklamaların getirdiği avantaj, 
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programın çeşitli yerlerine dağılmış çok sayıda INPUT deyiminden doğan soru 
işaretleri ile hangi sayısal değerinin girileceğinde yaratabileceği tereddütleri 
ortadan kaldırmasıdır. 

Aşağıdaki örnekte, bir şahsa ait sıra nosu, ismi, soyadı, o şahsa ait özel bir 
sayı, maaşı ve medeni halinin programa girilmesi istensin. Bu programa veriler 


20 INPUT ID 
25 INPUT ISIM$ ,SOYAD$ ,SAYI ,MAAS ,EVLI/ 


? 14 
? "AHMET" ,"OSMANOGLU", 5, 2150000, -1 


şeklinde temin edilmelidir. 


ON ERROR GOTO 


Bir program içinde hata oluştuğunda hatayı yakalama ve bu hata durumunda 
hangi işlemler yapılacaksa bu işlemlerin bulunduğu altprogramın ilk satırına 
yönlendirmeyi sağlar. Genel kullanım şekli: 


ON ERROR GOTO satır numarası 


Deyim kullanılırken satır numarası tanımlanmamış ise, “Undefined line” 
(Tanımlanmamış Satır) hata mesajı verilir. Hata yakalamayı olanaklı kılmak 
için, hatanın aranacağı kısmın başlangıç satırında kullanılır. Hata yakalama 
modundan çıkmak için 

ON ERROR GOTO 0) 
kullanılmalıdır. RESUME deyimi ile programa, kaldığı yere, geri dönerek prog- 
ram akışına devam eder. 

Örnek 


10 ON ERROR GOTO 995 
995 A-HAT : B-HTL 

996 PRINT A,B 

997 RESUME NEXT 
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PRINT 


Arzu edilen değişkenlerin değerlerini ekrana yazmak için kullanılan bir dey- 
imdir. Programda kullanılan her PRINT deyimi çıktıda yeni bir satır açar. 
Genel kullanım şekli: 


PRINT (veya) 
PRINT değişken listesi Oo (veya) 
PRINT "açıklama"; değişken listesi 


PRINT deyiminden sonra değişkenler listesi verilmediğinde, çıktıda sadece boş 
bir satır açar. 

PRINT deyimi ile verilen açıklamalar ve/veya alfasayısal değerler tırnak 
işareti (” ) içinde yer almalıdır. 

Eğer değişkenler birbirlerinde bir virgül ile ayrılırlar ise, o zaman değişken- 
ler arasındaki mesafe birinci ve ikinci değerlerin başlangıç noktaları arasındaki 
mesafe 14 boşluktur. Virgül kullanımında GW-BASIC herbir değişken için 14 
karakter uzunluklu yer ayırır; fakat virgül yerine noktalı-virgül (;) kullanılırsa 
herbir değişken arasında (işaret boşluğu hariç) birer boşluk ayırır. 

PRINT deyimi ile ekrana yazdırılması istenen değişkenlerin değerleri 80 
karakteri aşarsa değerleri bir alt satıra sarar. 

Örnekler: 

PRINT deyiminin doğru kullanımına bir takım örnekler aşağıda verilmek- 
tedir: 


10 PRINT A,B,C 

20 PRINT N$,M$,XX,F3,A# 

30 PRINT 

40 PRINT "A—";A,"B—";B,"G—".Ç 

50 PRINT "“ISIM ";AD$,"SOYADI ";S0Y$ 
60 PRINT 


Bir başka örneği de çıktılar bakımından inceleyelim. 


10 A1-10.35 
20 A2-3.149831 
30 A3-5 


40 PRINT A1,A2,A3 
50 PRINT A1;A2 
60 PRINT 


40 BÖLÜM 3. BASIC PROGRAMLAMA DİLİNİN ESASLARI 


70 PRINT "A1-";A1,"A2-" A2 

80 END 

RUN 
10.35 3.149831 5 
10.35 3.149831 


Ais 10.35 A2- 3.149831 


şeklinde bir çıktı elde edilir. Buradaki sayısal değerlerin arasındaki mesafeleri 
incelersek, bir virgül ile ayrılan her bir değişkenin sayısal değerleri için 14 
karakterlik bir alan ayrılmış olduğu görülür. 


14 karakter 14 karakter 14 karakter 
12345678901234 2345678901234 2345678901234 
EXXXXXXXXAXXKAXXAXXEXAXAXXXXKXAXXXAXXKXXXXX 

10.35 3.149831 5 

10.35 3.149831 


14 karakter 14 karakter 14 karakter 
12345678901234 2345678901234 2345678901234 
KEXXEXXEXXXEXKXXXXKXXXEXXKAXXEXEXKXAXEXXXXXX 
A1z 10.35 A2- 3.149831 


Bu örnekte PRINT deyiminden sonra değişken listesi verilmediği duru- 
munda da bir boş satırın açılmış olduğuna dikkat ediniz. 


READ 


Bu deyim, eğer verilerin programın içinden temin edilmesi isteniyorsa DATA 
deyimi ile beraber kullanılır. Veriler dolayısıyla DATA satırından temin edilir. 


READ Değişken Listesi 


şeklindedir. 
READ-DATA deyimlerinin kulanımında dikkat edilecek hususlar şunlardır: 


e Bir programdaki READ deyimi en az bir tane DATA deyiminin kullanıl- 
masını gerektirir ve DATA deyimi olmaksızın READ deyimi kullanıla- 
maz. 


e INPUT deyiminde olduğu gibi değişkenlerin sayıları, sıraları ve tipleri 
uyum içinde olmalıdır. READ ve DATA arasında bire-bir eşleme yapılır. 
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Eğer DATA satırında eksik veri var ise, o zaman “Out of Data” (Veri 
Yetersiz) şeklinde bir hata mesajı ile karşılaşılır. 

e READ deyimi DATA deyiminin olduğu satırdaki verilere sırayla erişir. 


Örnekler: 

Aşağıdaki örnekte iki adet READ deyimi ile 6 değişkenin değerleri tek bir 
DATA deyimi ile verilmiştir. Bu örnekte DATA deyimi sayısı artılabilir veya 
READ deyimi sayısı da azaltılabilirdi. Ayrıca, DATA deyimi de programın 
herhangi bir yerine konabilir. 


5 READ ADI ,SOYAD$ ,MAAS,EVLI/, 
10 READ ESADI$ ,COCUKSAYISI 


50 DATA "AHMET", "OZTURK" ,1550000,0,"ELİF",3 


98 END 
İkinci bir örnek ise şöyle verilebilir: 
20 READ AI#,S,M$,PI 


50 DATA 1.354D0-5,3.45,"Y" ,3.14159 


98 END 


Yine veriler sayı ve tip bakımından eşleştikleri görülmektedir. 
Aşağıdaki programlar ve çıktıları verilmektedir. İşlemler ve aşamalarını 
dikkatle inceleyiniz. 


10 READ X 10 1-0 

20 PRINT X 20 READ X$,YAS 

30 READ Y,Z 30 PRINT X$,YAS: 12141 
40 PRINT Y;Z 40 DATA AHMET,14 

50 GOTO 30 50 DATA ZELIHA,35,VEYSEL,3 
60 DATA 8,11,0,6,4,-5,3 60 IF I<-2 THEN 20 
RUN RUN 

14 karakter 14 karakter 
XXXXXXXXXXXXXX KXXXXXXXXXXXXX 

8 AHMET 14 

11 0 ZELIHA 35 

6 ii VEYSEL 3 


-5 3 
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REM 


BASIC programlama dilinde açıklama deyimi REM (REMAarks'ın kısaltılması) 
dir. REM her program satır numarasını takip eder ve açıklama deyiminden 
sonra en az bir boşluk bıraktıktan sonra gerekli açıklama yazılır. Bu deyimin 
olduğu satırın tümü böylece açıklamaya ayrılmış olur. 


Örnekler: 


10 REM BU PROGRAM S. M. MAHMUT TARAFINDAN HAZIRLANMIŞTIR. 
20 REM PROGRAM 12 BANKANIN YILLIK BILANÇOSUNU VERİR. 


999 REM PROGRAM SONU 


Açıklama deyimleri, programı incelemek isteyen başka şahıslara bilgi verme 
ve hatta programcının kendisine hatırlatma amacıyla kullanılabilir. 


RESTORE 


DATA deyimleriyle hazırlanmış verilerin başa sarılarak yeniden okunmasını 
sağlayan deyimdir. Şarkılar içeren bir kasede ve bu komutunun kullanımıyla 
kasedin başına veya herhangi bir şarkının başına sarılmasına benzetilebilir. 
Kullanım şekli 


RESTORE 
RESTORE data satır numarası 


olarak verilmektedir. Eğer data satır numarası belirtilmişse bir sonraki READ 
deyimi belirtilen DATA deyimine ulaşarak buradaki verileri okur. Eğer satır 
numarası belirtilmemişse (yani RESTORE tek başına kullanılmışsa), bu du- 
rumda bir sonraki READ deyimi ilk DATA deyimine ulaşarak buradaki verileri 
okur. 

Örneğin, aşağıdaki program parçasında önce okunan A, B, ve C sırasıyla 
10, 45 ve -35 değerlerini alır. RESTORE deyimiyle okuma işlemi DATA 'nın 
başına sarılır ve okuma işlemi yeniden icra edilir. Bu durumdada D, E, ve F 
değerlerinin sırasıyla A, B ve C'ye eşit olacaktır. 


10 READ A,B,G 
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20 RESTORE 
30 READ D,E,F 
40 DATA 10,45,-35 


Aşağıdaki programı inceleyelim: 


10 AZ10.5 
20 DATA 1,-2,4,0,8 
30 READ X,Y,Z 
40 C2XA*Y*Z 
50 RESTORE 
60 READ U,V 
70 T-(U-V)/U*V 
80 READ U,V 
90 P(U#U-V*V) / (U*U#V#V) 
100 PRINT G,T,.P 
120 END 
RUN 
2 1 il 


Bu programda 30 satıra gelindiğinde X—I, Y——2 ve 7—4 değerlerini alır; 
40 satırda C—1*(—2)-4-4 işleminden 2 bulunur. RESTORE deyimi ile okuma 
işlemi ilk ve tek olan DATA satırının başına konumlandırılır. Okuma işlemi ile 
U—I ve V——2 değerlerini alır ve T—(1—(—2))/1 4 (—2)21 bulunur. Tekrar 
U ve V okunduğunda DATA da kalınan yerden itibaren okuma işlemi icra 
edilir. Yani U ve V'nin yeni değerleri U—4 ve V—0 olur. P ise V—0 olduğunda 
(p <u/u?—1) 1 olarak bulunur. 


RESUME 


Bir hata yakalama ve düzeltme operasyonundan sonra programın normal 
çalışma durumuna geçişi sağlamak için kullanılır. Kullanım şekilleri 


RESUME 

RESUME O 

RESUME NEXT 

RESUME satır numarası 


Bunlardan RESUME ve RESUME O deyimleri programda hatanın sebep olduğu 
yerden itibaren çalışmaya devam etmesini sağlar. RESUME NEXT deyimi hataya 
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Tablo 3.2: Sık kullanılan bazı kütüphane fonksiyonları 


BASIC ifadesi Cebirsel ifade 


LOG(X) Inz 
EXP(X) e 
SOR) VE 
SIN(X) sin 2 
ABS(X) İz) 
ATN(X) arctan 7 


sebep olan satırı hemen takip eden satırdan itibaren programın çalıştırılmasını 
sağlar. Son olarak ta RESUME satır numarası ile program çalışmasını belir- 
tilen satırdan itibaren gerçekleştirir. 


STOP 


Deyimiyle programın çalışmasının durdurulması ve komut seviyesine ge- 
tirilmesi amaçlanır. STOP deyimi programda herhangi bir yerde prog- 
ram akışının durdurulması için kullanılabilir. Programda STOP deyimine 
gelindiğinde şu mesaj verilir: “Break in line nnn”. Burada nnnn STOP 
deyiminin kullanıldığı satır numarasıdır ve bu mesaj bir hata mesajı değildir. 
END deyiminden farklı olarak STOP deyimi kütükleri kapatmaz. 

Örnek 


10 INPUT A,X 

20 C-(A*X)/(A72-B72) 
30 STOP 

40 D-C#X-A 

50 PRINT D 


3.6 KÜTÜPHANE FONKSİYONLARI 


BASIC derleyicileri veya tercümanları bir BASIC kütüphanesi içerir. Bu 
kütüphane genellikle alışılagelmiş matematik fonksiyonlarını içerir. En önemli 
fonksiyonların birkaçı Tablo 3.2 de verilmiştir. BASIC de kullanılan bu ve 
diğer fonksiyonlara ilerideki bölümlerde daha detaylı olarak deyinilmiştir. 


3.7. PROBLEMLER 


3.7 PROBLEMLER 


3.1 Bilgisayarınızın sayısal değerlerinin sınırı nedir? ((2.)7 — 2.) ifadesi ile 


K V4.)3— 1.) ifadesini bilgisayarda hesaplayarak sonuçları karşılaştırınız ve yo- 


rumlayınız. 


3.2 X—I./3.41./3.41./3. ile Y—1./4.41./4.41./4.41./4. ifadelerini hesapla- 


yan bir program yazınız ve sonuçların nedenlerini açıklayınız. 


3.3 Aşagıdaki program ifadelerindeki hataları bulunuz. 


a) 2XsA, b) X#Y-Z, c) A27-2.35E-2, d) Y:-1.403E-3.5*X, 


3.4 Aşağıdakilerden hangisi geçerli bir gerçek değişken isimlerdir. 


A1 1A WGXY BIR X21Y93 A000B 
X-19 BG4A5 AB 12 235X ALFA B23.4 


3.5 Aşağıdakilerden hangisi geçerli tamsayı değişken isimlerdir. 
KEDI/ MIL# KILOMETRE/ Oo J99X! XKIJ4 (O 3AMN/ 


3.6 Aşağıdakilerden hangisi geçerli aritmetik deyimleridir. 


(a) XsS*T (b)  VOLTZAKIM*DIRENC 
(c) oABCDEFGH-A-B (d) U#V2UV 

(e) 123 s IKL (£) KDVs0.154FIYAT 
(g) YOG -XM/V (h)  NNKK> * NK2 

(1) GU - CG*3.1456 (i) 1Sg 

(J) -AB-3.0 (k)  XEX#XAX 


3.7 Aşağıdaki ifadeleri BASIC dilinde kodlayınız? 


5(afe)"-1 


(a) 


2 ye 1 Sd 3 pitk çiş 
(e) e (d) iü) 


ir — si)m d/(b— ayntm 
or ta ty) ip la kB 
(21/yı)B(2>/ya)'/4 2 er l 
ll 


(g) U- ty İn(a? Ky) 


2 


e) D-1 


N$127, 


; ab > EC 
rey © see) rez 
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47? MN 1/(m*n) 
İİ Deki e, gi er. 
(2452-41) 72 d/(b— ayin 


arctan/x)arcsın(x) 
arcosh(x) — arcsinh(x) 


3.8 Aşağıdaki ifadelerin formül hallerini bulunuz. 


(a) 
(Cc) 
(e) 
(g) 
(1) 
Ci) 
G) 
(k) 
(1) 
(m) 
(n) 
(0) 
(6) 
(p) 


X-Y*(Z-D/E/2) 

XY-WN/Z*5 

D-D141A*Z73/3 
1J“(K-2)*1/7 
Z-2*A134B/C72-(14R)“N/M 
H-(14P)734(1.-0)7.5/S#T/R 
H-24V724#SIN(T) *COS(T-A) / (G*COS(T) “2) 


(b) 
(d) 
CE) 
(h) 


H-(2*A*B/(C*1)-T/(3*(P*0)))7(1/3) 
H—(A*B*COS(X) ) /SIN(X#(A#B*SIN(X))) 


Z>((2*#A#B/(Ct1))-(R/(7*(P*0))))7(1/N) 
H-R*#A*(14R) “N/((14R) 7N-1) 


Z-1/(S*SOR(2*P) )#EXP(-0.5*((X-A)72/572)) 
7-(6.8*(A1B)“2/0-7.123*A/ (B*tC)”.5)/(A4C)“(1/N) 


(n*-m)/2 


Y-X73454X7216 
P-P*R*P*T-1.25/P73 
K-3/(1/13-M)4L-NM*#19 
X>(1.-X4X)/(YAY-XAX) 


K-SOR(SOR(X724Y72) #B*COS(A*X) ) /SOR(X724Y72) 


3.9 Aşağıdaki ifadelerde varsa hatalı olanlarını ve hata nedenlerini bulunuz. 


a) X-4,562.23 b) Uz1.7687E-2.3 c) 
d) B-2.E3 e) 5AB-7.94 f) 
h) Z7-1511. i) ML-17 abi 
k) X-XN 1) C-X“-2 m) 
n) C3-NM o) F-125/5/5/5 p) 
g) 27-Zt1/Z r) W-(-2.4)7(-1.1) os) 


1-53 
KL*2/5 
T14R“N 
E-(-4.)7.5 
R-A*B/C*D/E 
U-(1/(X-1/X)) 


3.10 Bir market sipariş verdiği 418 tür malı | ile 418 arasında kodlar vererek 


tanımlıyor. Yazacağınız bilgisayar programı sırasıyla malın kodunu, kaç adet 


satın alınacağı ve birim fiyatını okusun ve sipariş verilen ürünlerin bedelini 


hesaplasın. 
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20 B-4.32 20 J-M-1 20 KaKti 
30 CB 30 N2-2 30 MK 

40 DSA 40 I-J 40 X:143#P 
50 E-C 50 KI-N2*1 50 J-Mt3 
60 C-5.25 60 M-N2 60 Y2P*X 


3.17 Aşağıdaki programların çıktılarını bulunuz. 


a) b) 

10 11-2 10 R-0.5 
20 14-5 20 P-1500 
30 K/-1/417 30 M-5 
40 L/>K/417 40 Tz14R/10 

50 1/1741 50 T-T“M 

60 L/-K//14 60 X-P*R/T 
70 PRINT 14,14,K4,L/ 70 PRINT P,R,M,X 
80 END 80 END 

c) d) 

10 14-2 10 U-1.5 

20 1753 20 M-5 

30 K/-4 30 X-U*(-U)“(1/M) 
40 L/-1/7J7/ 40 Y-M*X 

50 M/-1/4”(-14) 50 PRINT X,Y 

60 N/>(1/714)7K/ 60 END 


70 NN/-1I4”(IYAKİ) 

75 MM/-J/“(1/7K4) 

80 PRINT L/,M/,N/,NNZ,MM/ 
90 END 
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3.11 Bir dikdörtgensel kutunun ebadı 5 cmx 10.5 cmXx6.65 cm olarak veriliyor. 
Bu kutunun (a) hacmini (b) toplam yüzey alanını hesaplayan bir program 
yazınız. 

3.12 Bir cismin doğrusal genleşme katsayısı, birim sıcaklık değişimiyle cismin 
uzunluğunda meydana gelen değişim olarak tanımlanıyor. Bir çelik çubuk için 
yapılan ölçümler şöyle verilmektedir: 4090'de uzunluk 120 cm iken sıcaklık 
85409'a çıkarıldığında 121.38 olarak saptanıyor. Çeliğin doğrusal genleşme 
katsayısını hesaplayan bir program yazınız. 


3.13 Bir sarkacın periyodu 


a İl ga 
P< ör) E (14 Zin >) 


formülü ile veriliyor. Burada 4—980 em/s?, L ise sarkacın uzunluğu (cm) ve a 
yerdeğiştirme açısıdır. Verilen bir yerdeğiştirme açısı ve sarkaç uzunluğu için 
periyodu hesaplayan bir program yazınız. 
3.14 Bir dikdörtgenin köşegenine göre atalet momenti 

I- ab” 

© 6a2 462) 

olarak veriliyor. Burada a ve b dikdörtgenin kenarları olduğuna göre, ebadı 4 
cmXx 7 cm olan bir dikdörtgenin köşegenine göre atalet momentini hesaplayan 
bir program yazınız. 
3.15 Fizik derslerinin başında bahsedilen standard problemlerden biri de yayın 
ucuna yerleştirilen bir cismin basit harmonik hareketinin enerji hesabını içerir. 
Enerji terimleri kinetik, potansiyel ve toplam enerjidir. Kullanılan formüller, 
türetilmesini kapsayan detaylara girmeden, aşağıda verilmektedir. 


0 ARM 
Ki T 


; FE 5KAR, FE 5KX, KE—TE—PE 


Burada K yay sabiti. TE toplam enerji, PE potansiyel enerji, KE kinetik 
enerji, A hareketin genliği, X göz önüne alınan yer değiştirme miktarı, M 
cismin kütlesi ve 7' periyodu temsil etmektedir. 

Yay sabitini (£g/s?) ve enerjileri (Joule), kütlesi 6 g olan bir cisim 20 cm yer 
değiştirdiği durumda hesaplayan bir program yazınız. Hareketin periyodunu 
0.5 s ve genliği 0.4 m alınız. 


3.16 Aşağıdaki programlar çalıştırıldığında bellek değerleri ne olur? 


(a) 10 A-2.34 (b) 10 Ms9 (c) 10 Psi 


Bolüm 4 


TEMEL PROGRAMLAMA 
VE TEKNİKLERİ 


Programlama ve programlama tekniklerinden bahsetmeden önce “Neden prog- 
ram hazırlama gereği duymaktayız?” sorusunu soralım ve bu sorunun cevabını 
vermeye çalışalım. Öncelikle bilgisayarlar aritmetiksel işlemleri yaparken çok 
hızlı çalışırlar. Bir çarpma işlemi yaklaşık olarak 1, üst alma işlemi yaklaşık 20 
mikro saniyelik mertebelerde yapılır. Her gün yeni gelişen bilgisayarlarla bu 
süre daha da kısalmaktadır. İnsan beyni aritmetik işlemleri bu kadar hızlı ya- 
pamaz. Ayrıca milyonlarca kişinin ismini içeren bir dosyadan belirli bir ismin 
bulunması gibi bir işlemi de insandan daha hızlı yapabilmektedir. İnsan gücü 
ve kapasitesi bu problemleri çözmesi için yeterli olmasına rağmen çözüm süre- 
siyle sınırlıdır. İnsanların haftalar süren çalışması sonucu çözdüğü problemi bir 
bilgisayar bir kaç dakika ile bir kaç saat arasında bir sürede çözebilmektedir. 

Bilimsel ve mühendislik problemlerinin çözümünde binlerce, hatta milyon- 
larca, aritmetik işlemin yapılması olağandır. Bir optimum çözüm bulmak 
için problemi defalarca elle çözmenin çok vakit alacağı, ve hatta işlem hatası 
olasılığının mevcudiyeti, çok aşikar bir gerçektir. Bazı problemleri elle çözek 
mümkün bile değildir. Bu nedenle program yazmak ihtiyacı duyulur ve işlemler 
bilgisayara yaptırılır. 

Bir bilimsel ve/veya mühendislik probleminin bilgisayar kullanarak çözü- 
münde izlenmesi gereken belirli aşamalar vardır. Bunlar sırasıyla: 


1. fiziksel sistemi ideal bir matematiksel modele çevirmek ve bu modele göre 
gerekli matematiksel denklemleri formüle etmek, 


2. bigisayar için uygun bir nümerik prosedür seçmek (türev. interpolasyon, 
integral, denklem çözümü metodu gibi), 


3. yeni bir teknik ortaya konuyorsa, bu tekniğin aşamalarını belirtmek; 
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(aşama aşama yapılacak işlerin belirtildiği düzene algoritma veya prog- 
ram dizaynı denir). 


bir detaylı akış şeması çizmek (yani Oku, Yaz, Kıyasla, Hesapla gibi 
işlemlerin sırasını belirleyen bir grafiksel gösterim): akış şeması genellikle 
algoritma esas alınarak hazırlanır, 


. akış şemasındaki işlemlere göre makinanın anlayacağı ve kabul edeceği 


bir dilde bu işlemleri yazmak veya diğer bir deyişle £odlamak (BASIC, 
PASCAL, FORTRAN, C gibi dillerle), 


. programı test etmek üzere çalıştırmak; program arzu edilen sonucu ver- 


miyorsa, programı kontrol etmek, hata veya hataları bulup düzeltmek. 


Bu aşamalar takip edildikten sonra, istenilen işlemleri yerine getirecek program 
hazırdır. 


4.1 ALGORİTMA VE AKIŞ ŞEMASI 


Akış şeması verilen bir problemin çözümü için izlenmesi gereken yolun bir 
grafiksel gösterimidir. Çözülecek problemin matematiksel ve mantıksal işlem- 
lerinin genel bir resmini sunar; çok uzun ve karmaşık problemlerin çözümünde 


kaçınılmazdır. 


Algoritma hazırlamak, hatası az olan program yazımına katkıda bulunur. 


İyi hazırlanmış bir algoritma, bazen akış şeması gerektirmeyebilir. 


Örneğin bir arabanın çalıştırılması için bir algoritmanın nasıl hazır- 
lanacağını inceleyelim. 


1; 


4 


pm 


en 


- 


Arabaya girip koltuğa otur. 


Vitesi boşa al. 


, Viteste iken ayağınız debriyajda mı? Hayır ise (2.)'ye git. 
. Kontak anahtarını yuvasına koyduktan sonra çevir. 

. Gaz pedalına bas (gaz ver). 

. Debriyaja basarak vitesi 1. konumuna al. 

. Hafif hafif gaz verirken ayağı debriyajdan çek. 


. Bir kaç araba boyu ilerdikten sonra debriyaja basarak vites yükselt. 
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9. Gaz vererek hızını artır. 
10. Motorun devri artmış ise, debriyaja bas vites yükselt. (9.)'ye git. 
11. Motorun devri düşmüş ise, debriyaja bas vites küçült. 
12. Hızlanmak için gaz ver, yavaşlamak için hafif fren yap. 
13. Durmak için debriyaj ve fren pedallarına beraber basarak durdur. 
14. El frenini çek ve kontağı kapat. 


Buradaki işlem sırasını takip etmek zorundayız; bunu yapmadığımız tak- 
dirde arabamız çalışmayacak ya da tuhaf bir şekilde davranacak ve arabamıza 
hasar verebileceğiz. 

Şimdi de, bir bilgisayarın arabayı çalıştırmasını ve bunun için bilgisayarı 
programlamak istersek, algoritmamız bu kadar basit olmayacaktır; çünkü bir 
insanın araba kullanırken karşısına çıkacak her türlü olasılığı bilgisayara prog- 
ram ile bildirmek gerekecektir. Örneğin, hava yağışlı ise sileceklerin, sıcak ise 
klimanın, soğuk ise ısıtıcının çalıştırılması; yol buzlu ise fazla hız yapılmaması, 
sağa ve sola dönüşlerde sinyal verilmesi, gece kullanımında farların yakılması 
gibi daha yüzlerce olasılığı düşünmek ve programlamak gerekir. Bu programın 
girdi verilerini görüş açısı, yakıt ve hız göstergeleri, sinyal göstergesi v.s oluş- 
turmakta iken, program çıktısı arabanın hareketi, davranışı ve göstergelerdeki 
değişimlerdir. 

Araba kullanma olayını bir robota yaptırmaya kalkacak olursak, robota 
hükmedecek program daha karmaşık bir hal alacaktır. Robotun dikiz ay- 
nalarına bakması, görüntüyü algılaması ve yorumlaması, direksiyonu kavra- 
ması, ayağının pedallara basma hızı v.b olasılıklar ortaya çıkar. 


Kısacası bir program yazmadan önce amacımıza ulaşmak, karşımıza çıka- 
cak her türlü soruyu çözmek için bilgisayara önceden direktif vermeliyiz; aksi 
takdirde program bu durumlarda ne yapacağını bilemez. Unutmayınız, bilgisa- 
yarlar sizin ne düşündüğünüzü, ne yapmak istediğinizi bilmezler; onlar sadece 
programları hazırlayanlar kadar zekidir. 


4.2 AKIŞ ŞEMASI 


Akış şeması, bir program hazırlanırken programcıya ya da programı inceleyene 
kolaylık sağlayan bir grafiksel gösterim yoludur. Programcılar akış şemasına 
bakarak istenilen herhangi bir programlama dilini kullanarak programlama 
yapabilirler. Diğer bir deyişle, akış şeması bu anlamda evrenseldir. 


Ün 
e) 
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Akış şemasında kullanılan geometrik şekiller aşağıda verilmiştir. 


Başlama ve bitiş durumlarını gösterir. İçine 


BAŞLA veya DUR yazılarak kullanılır. 


Giriş-Çıkış işlemlerinde kullanılır; OKU < 
değişken listesi>, ve YAZ < değişken listesi> 
şeklinde kullanılır. 


Akış yönünü gösterir. 


İşlem ünitesidir. Aritmetik işlemler için kul 
lanılır. 


İLİÇ 


Karar aşamasını belirtir. 


Akış şeması bir sayfaya sığmadığında veya 
bir altprograma atıfta bulunulduğunda içine O 
bir numara veya harf konularak kullanılır. 


Kapalı döngü (FOR-NEXT) belirtir. 


4 FOR I-1 TON STEPMP—-—j 


yo > 
i Ni i 
| 
l / 
I I 
: | 
1 1 

İİ 
| 
! 

yümumamanana İİ emme se 
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Akış şemalarında karşılaşılan durumlara şu örnekler verilebilir. 


(1) Sıralı Akış: Bir birini 
takip eden birden fazla arit- 
metik işlem aşamalarının ol- 
ması durumudur. 


(âi) Şartlı Akış: Bir şartlı 
bileşen içermesi durumudur. 


(ii) Tekrarlı Akış: Bir iş- 
lemin veya işlemler dizisinin 
belirli sayıda işlem görmesi 
durumudur. 


- NN 
Asama | | 


Aşama 2 


Aşama 3 


(Bir giris) 


Yanlış PN Doğru 
Şart — 


# 


Ri 


İİ bam 
(8 aSarmSI | 
 ..... İ 


Yanlış 
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ÖRNEK 1: Bir ürünün toptancı fiyatı (F) ise, aracı kişi bunu satın alınca 
“15 KDV ödemekte, kendisi de 25 kar payını da koyduktan sonra KDV'siyle 
beraber tüketiciye satmaktadır. Bu durum için bir algoritma aşağıdaki şekilde 
hazırlanabilir. 


1. Malın toptancı fiyatını 
(F) gir. 


2. Aracının satın alma fiya- 
tını (AF) hesapla. 
AFe—IL.15*F 


3. Aracı kârıyla beraber fiy- 
atı (AP2) hesapla. 
AF2--1.25*AF 


AF Zel 20XAF 


FE-LISKAF2 
1. Tüketiciye ulaşan fiyatı 
(FF) hesapla. 
FFe€-1.15*AF2 


5. FF değerini ekrana yaz. DUR |) 


6. Dur. 
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ÖRNEK 2: Şartlı akış durumuna bir örnek olarak pozitif ve negatif 
sayıların belirlenmesini ele alalım. 


1. Ekrandan bir sayı (P) 
oku. 


2. Eğer sayı pozitif ise (5.) 
aşamaya (P>0) git (negatif 
ise devam) 


3. Ekrana “Sayı negatiftir” 
yaz. 


1. (6.) aşamaya git 


3. Ekrana “Sayı pozitiftir” 
yaz. 


6. Dur. 


ARŞ 
YAZ “Sayı Pozitittir” / 


— 


YAZ “Sayı Negatiftir 
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ÖRNEK 3: Tekrarlı akış durumuna bir örnek olarak, programa dışarıdan 
girilecek 10 sayının toplamını ele alalım: 


1. Sayaç (N) ve toplamı (T) 


DE yi e öğe 
sıfırla (N—O ve T—0). BAŞLA 


2. Sayacın değerini bir artır. 
N—N--1 


3. X değerini oku. 


4. X değerini toplama kat. 


T—T4-X 
5. Eğer N, 10'dan küçük ise Pa vi 
(2.) aşamaya git. NGZ 5 


6. T değerini ekrana yaz. 


7. Dur. 
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4.3 KARAR VERME YAPISI 


Ür 
-—I 


Aritmetik işlemlerin yanısıra ALU (Arithmetic-Logic Unit-Aritmetik Mantık 
Birimi) da iki unsuru kıyaslamak ve kıyasa dayanan komutları yürütmek için 
tasarlanmıştır. Bu kıyaslamalardan en basiti, iki unsurun aynı olup olmamasını 
içerir. Bu kıyaslamanın BASIC'de kolaylıkla yapılabilmesi için mantıksal ön- 
ermelere yer verilmektedir. 


4.3.1 IF-THEN Yapısı 


Bütün karar verme yapılarının temel taşı olan mantıksal IF yapısının genel 

kullanım şekli aşağıda verilmektedir. 

IF <ifade> THEN Sadece ifadenin doğru (TRUE) olduğu durumda işlenecek 
Eğer mantıksal ifade yalnış (FALSE) ise, deyim işlenmez ve program IF 

deyiminden sonraki satıra geçer. IF ... THEN sadece bir satır işgal eder. 


Mantıksal İfadeler 


IF deyiminin kullanımı tabi ki mantıksal ifadenin tanımına bağlıdır. Bir man- 
tıksal ifade bir veya daha fazla ilişkisel ifadenin kullanımını içerebilir. Bu 
ifadeler birbirlerine bir “ilişkisel mantık operatörü” ile bağlanırlar. Bunlar: 


İlişkisel Mantık | Anlamı 
Operatörü 


Eşit 
Eşit değil 


Büyük 
Büyük eşit 
Küçük 


Küçük eşit 


Örneğin, 25 < 981fadesinin değeri —I (yani DOĞRU) dir. Diğer taraftan, 
program içinde kullanıma örnek olarak 


20 D-B*B-Ax*A#C 
30 IF (D>-0) THEN D-SGR(D) 


verilebilir. 


Birleştirici mantıksal operatörlerin (AND, OR v.s) kullanımıyla daha kar- 
maşık mantıksal ifadeler oluşturulabilir. Orneğin X değişkeninin değeri 2 ise 
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(X<5) ifadesinin değeri —I (yani, DOĞRU) dir. Bütün aritmetiksel işlem- 
ler mantıksal işlemlerden önce yapılır. Böylece. (X<2.54*S0R(10)) ifadesinde 
2.510 önce hesaplanır ve X ile kıyaslanır; bu ifadenin değeri —1 bulunur. 

Fazla sayıda parantez kullanımı, ABS (X-3) <(10-SGR(5) gibi, ifadeye açık- 
lik kazandırmak bakımından ilave edilebilir. 

Mantıksal ifadeler AND, OR, NOT, EOV v.s operatörlerinin kullanımıyla 
birleştirilebilirler. Bu operatörlerin uyduğu kurallar ve fonksiyonu Tablo 4.1 
de verilmektedir. Örneğin, X ve Y sırasıyla 1 ve 5 değerlerine sahip olsun- 
lar, bu durumda (X>3 AND 34Y<30) ifadesi (0 AND —I) olacak ve sonuçta 0 
(YALNIŞ) olarak değerlendirilecektir. 

Ayrıca, (X*Ys0 OR Y<13) ifadesi (0 OR —I1) olacak, sonuçta —1 (DOĞRU) 
değerini alacaktır. 

Oldukça karmaşık mantıksal ifadeleri değerlendirirken bir karışıklığa neden 
olmamak için şu kuralı hatırlamak gerekir: Bir mantıksal ifadede aritmetik 
işlemler öncelikle aritmetik işlemlerin hiyerarşisine uygun olarak hesaplanır; 
daha sonra mantıksal operatörler soldan saga doğru taranarak değerlendirilir; 
alt ifadelerde (AND ve OR operatörleri değerlendirilir) AND'ler OR'lardan 
önce olmak koşuluyla yine soldan sağa doğru değerlendirilir. Örneğin, 


(1-10 OR X<1i AND Z>-0) 
ifadesi 

((1-10) OR (X<1) AND (Z>-0)) 
şeklinde de yazılabilir ve 

((1-10) OR ((X<1) AND (Z>-0))) 


ile eşdeğerdir. Eğer 1—10, X—0. ve Z——I ise, bu durumda yukarıdaki ifade; 
(—1 OR —1 AND 0) olarak okunacak, bu da (—1 OR 0) ifadesine eşdeğer 
olacak ve toplam sonuç —I (yani DOĞRU) bulunacaktır. 

Bu nedenle çok sayıda önermenin kullanıldığı mantıksal ifadeler de, önerme 
ile arzulanan sonucu elde etmek için parantezlerin kullanımından kaçınılma- 


ması gerekir. 


Potansiyel Hatalı Kullanım Durumları 


Bir IF testini kullanırken çok sık yapılan hatalara değinmekte yarar vardır. 
IF-THEN yapısını 
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Tablo 4.1: Mantıksal Operatörler ve İşlevleri (Bu Tabloda T—True (Doğru) ve 
F—False (Yalnış) anlamında kullanılmıştır). 


Operasyon Deger Değer Sonuç 
NOT (DEĞİL) OX NOT X 

T F 

F T 
AND (VE) X Y X ANDY 

T T di 

E P F 

F E g 

F F F 
OR (VEYA) X Y XOR Y 

T IT I 

TI F yi 

F T z 

F F F 
XOR X Y X XORY 

: T F 

E F T 

> T Ii 

F F F 
EOV X Y X EOVY 

E X T 

T F F 

F TI F 

p F T 
IMP X 4 XIMPY 

g T e 

I F F 

F TE i 

P F T 


60 BÖLÜM 4. TEMEL PROGRAMLAMA VE TEKNİKLERİ 


I. Gerçek sayılarla eşitlik kıyaslaması için kullanmayınız. Bunun nedeni 
gerçek sayıların yaklaşık değerlerden oluşmalarıdır. Örneğin, 


40 A-2.0 
50 B-SOR(A) “2 
60 IF (A-B) THEN PRINT "A, B YE EŞİTTİR" 


ifadesinde B#2 (çünkü B—2*e gibi bir değer alabilir) olabileceğinden, 
kıyaslama başarısızlık ile sonuçlanacaktır. 


2. Eğer bir miktarın EPSILON gibi çok küçük bir sayıdan küçük olup ol- 
madığı araştırılmak isteniyorsa, kıyaslamayı asla 


30 IF (U<EPSILON) THEN PRINT "U, EPSILON DAN KÜÇÜKTÜR" 


şeklinde yapmayınız. Bunu daha ziyade 


30 IF (ABS(U)<EPSILON) THEN PRINT "U, EPSILON DAN KÜÇÜKTÜR" 


şeklinde kıyaslayınız. Çünkü U negatif değerler de alabilir ve bu durumda 
bir negatif değer, büyüklüğü ne olursa olsun, bu şartın sağlanmasına 
neden olur. İki gerçek sayının (A ve B gibi) eşitliğinin kıyaslanması da, 
bu bilgilerin ışığı altında, 


IF (ABS(A-B)<EPSILON) THEN ........ 


şeklinde yapılmalıdır. 


Eğer mantıksal ifade —| (DOĞRU) ise, BASIC deyimi işlenir; 0 (YALNIŞ) 
ise bir sonraki satıra geçer. 


IF-THEN yapısının kullanımına ilişkin bazı örnekler aşağıda verilmiştir: 
25 IF (Nsi) THEN M-24N-1 
35 TE (NM<100) THEN G0TO0 999 
65 IF (KOD>-90) THEN PRINT "PEKİYİ" 


76 IF (X<1) THEN Y2X#X#X-34X*X*45 
77 IF (X>-1i) THEN Y-2-X4#X 
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4.3.2 IF-THEN-ELSE Yapısı 


IF kelimesi ingilizcede “eğer”, THEN kelimesi de “bu durumda” ve ELSE 
kelimesi de “yoksa” anlamına gelmektedir. Buradan da anlaşılacağı üzere 
IF-THEN-ELSE deyimi bir koşul ifade etmektedir. Yani, bir önermenin sağ- 
landığı veya sağlanmadığı zaman program akışını değiştirmek için karar almayı 
sağlayıcı bir deyimdir. Deyimin genel şekli: 

TF önerme THEN ifade-i (ELSE) ifade-2 
olarak verilmektedir. önerme, doğru veya yanlış şeklinde bir hüküm bildiren 
ifade iken ifade-/ ve ifade-? işlenebilir (yani işlem yapan deyimler dizisi) BA- 
SIC deyimleridir. AND ve/veya OR mantıksal operatörlerinin kullanılmasıyla 
birkaç çeşit önermeler oluşturulabilir. 

THEN ve ELSE deyimlerini satır numarası takip edebilir. Böylece program 
akış yönü değiştirilmiş olur. Bir tür GOTO deyimi görevi görülür; ancak 
GOTO deyimi de kullanılabilir. 

Bir IF-THEN deyimi aynı zamanda iç-içe IF-THEN deyimleri de içere- 
bilmektedir. Bu şekil kullanımda dikkat edilmesi gereken bir nokta da kul- 
lanılan IF sayısı kadar THEN'in olması gerektiğidir. 


Örnekler: 


25 IF (A>B) THEN C-A/B ELSE C-B/A 

45 IF (X-1-Y42) THEN PRINT "X-";X,"Y>";Y ELSE PRINT Y;X 
60 IF (F>-32) AND (F<-132) THEN C-(F-32)*5/9 

78 IF (X1>0) OR (X2<5) THEN 7-0 ELSE 2-ti 

99 IF (A$-"AHMET") THEN F/--i ELSE F/-0 


THEN ve ELSE'ten sonra ancak ve ancak tek bir ifade kullanılabilir. 
Koşul birden fazla ifade içeriyorsa, o zaman başka bir yol izlenir. Bu du- 
rumda GOTO deyimi kullanılarak blok işlemlerin yapıldığı satır başlarına yön- 
lendirme yapılır. 

Aşağıdaki örnekte C—100 olması durumunda x—(A-4B)/2 olduğu 45.nci 
satırda veriliyor. Pekala, C#100 ise o zaman ne olacak? sorusunun cavabı çok 
basittir. ELSE ile koşulun bu kismı cavapsız bırakılmıştır; fakat 45.nci satır 
sadece koşul sağlandığında işleme gireceğinden koşulun sağlanmadığı durumda 
bir alt satıra, yani 50.nci satıra gidecektir. Böylece ELSE'i kullanmadan aynı 
sonuca varabileceğimiz bir yazılım yapmış oluyoruz. 


45 IF (C-100) THEN X-(A4B)/2 
50 X-(A-B)/3 
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Bir IF-THEN-ELSE deyiminin iki dalı vardır. Yani şartın DOĞRU ve 
YALNIŞ olduğu durumlar için birer BASIC deyimleri blokları kullanılabilir. 
Eğer IF yapısı içinde daha fazla dallanma gerekiyorsa, IF yapıları yuvalamasına 
veya ELSE IF yapısının kullanımı gündeme gelebilir. 

İçiçe IF-THEN deyimlerinin kullanımına bir örnek verecek olursak, aşağıda 
X ve Y'nin büyüklük kıyaslamasının iki IF-THEN-ELSE IF ile nasıl gerçek- 
leştirildiği görülmektedir. 


50 IF X>Y THEN PRINT "BÜYÜK" ELSE IF Y>X THEN & 
60 PRINT "KÜÇÜK" ELSE PRINT “EŞIT" 


Bu şekilde üç duruma cevap verilmektedir. 


Çoklu dallanmaya yapısına bir örnek olarak da ikinci dereceden bir den- 
klemin köklerinin türünü ele alarak açıklayalım. 


10 INPUT A,B,C 

20 DELT-B2-4xA*C 

30 IF (DELT<-0) THEN GOTO 90 

ELİ ER vee ear e va 
50 REM DELTA>0 OLDUĞU DURUMDA KULLANILACAK DEYIMLER 
60 REM BU BLOKTA YER ALIR 


80 PRINT "Iki farklı gerçek kök var " 

85 GOTO 210 

90 IF (DELT-0) THEN GOTO 140 ELSE GOTO 200 

i 0 İL İn ğinde salam sizinle menim ii laieiemhe gkaizdelekekeizkzinizimizizizizi 
110 REM DELTA-O OLDUĞU DURUMDA KULLANILACAK DEYIMLER 
120 REM BU BLOKTA YER ALIR 


140 PRINT "Eşit iki gerçek kök var " 

145 GOTO 210 

150 REM ———-———————————————————— 
160 REM YUKARIDAKI HER IKI ŞARTIN SAĞLANMADIĞI DURUM 
170 REM IÇIN (DELTA<O) KULLANILACAK DEYIMLER BU BLOKTA 
180 REM YER ALIR 


4.3. KARAR VERME YAPISI 63 


ÖRNEK 4: Aşağıdaki şekilde verilen bir fonksiyonu herhangi bir x değeri 
için hesaplayan bir program yazınız. 


2524-7, see e İN 

aj e v —4, 0<1<5; 
sınız —cosz, 5<2S<T; 
K > G 


10 REM FONKSIYON PROGRAMI 

20 INPUT "X DEĞERINI GIRINIZ "; X 

30 PI-4*ATN(1) 

40 IF (X<0) THEN F-2.54X4PI 

50 IF (X>-0 AND X<-5) THEN F-X*X-4 

60 IF (X>5 AND X<-7) THEN F-SIN(X)-COS(X) 
70 IF (X>7) THEN F-PI 

80 PRINT "“F(",X,")—">F 

90 END 


Bu programda, örneğin x — 6.3 olsun. Bu IF'lerin içinde önermenin doğru 
olduğu tek deyim IF (X<5 AND X<-7)'in bulunduğu satır olup, fonksiyon 
değeri f — cosz — sin ile hesaplanır. Diğerlerinde önermenin sonucu yal- 
nış (YALNIŞ) olacağından fonksiyon değeri F, bu deyimler ile verilen formül 
ile hesaplanmaz. 


4.3.3 GO TO Deyimi 


Normal program akışını değiştirerek belirtilen satıra yollama deyimidir. GO 
TO (veya GOTO) deyimi bir tamsayı ile beraber kullanılır ve bu tamsayı satır 
numarasını belirtir. Genel kullanım şekli: 


GOTU satır numarası 
olarak verilmektedir. Burada, satır numarası program içinde geçerli, yani prog- 
ram satırlarından herhangi birinden oluşan, bir satır numarası olmalıdır. Or- 
neğin 350 GOTO 25 deyimi program akışının bu satırdan 25 numaralı satıra 


yönlendirildiğini göstermektedir. Bazı kullanım şekilleri; 


80 GOTO 130 
90 IF (X<0) THEN 999 


130 IF (N>99) THEN GOTO 10 
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olarak verilmektedir. Amaç, bazı şartların sağlanması durumunda veya şartsız 
olarak program akış yönünü değiştirmektir. 

"ukarıdaki örneklerde GOTO 130 ile herhangi bir şart olmadan akış yönü 
130'a yönlendirilmektedir. Bundan farklı olarak belirli şartların sağlandığı 
durumlarda, X< ve N> 99, akış yönünün değiştirilmesinde kullanılmıştır. 


ÖRNEK 5: a, b vec sayılarının, bir üçgenin kenarlarını oluşturup oluştur- 
madığını saptayan bir program yazınız. Eğer bir üçgen oluşturuyorlarsa, üç- 
genin çevresini hesaplasın, aksi takdirde ekrana 'ÜÇGEN DEĞİLDİR” mesajını 
yazsın. 

Bu problemi programlayabilmemiz için bilmemiz gereken bilgi, geometri 
derslerinden hatırlayacağınız üzere “üçgenin bir kenarı daima diğer iki ke- 
narının toplamından küçük olmalıdır” kuralıdır. Buna göre 


10 REM PROGRAM ÜÇGEN 

20 INPUT "A, B VE C YI GIRINIZ ";A,B,C 
30 IF (A>-(B*C)) THEN 90 
40 IF (B>-(A*C)) THEN 90 
50 IF (C>(A4B)) THEN 90 
60 CEVRE-A1B*C 

70 PRINT "Çevre-";CEVRE 
80 STOP 

90 PRINT "ÜÇGEN DEĞİLDİR" 
92 STOP 

94 END 


A, B ve C sayıları A>B-4C, B>A-C veya C>A--B eşitsizliklerinden en az 
birini sağlıyorsa, bir üçgenin kenarlarını oluşturamazlar. Bu nedenle eşitsizlik- 
ler sağlandığında akış yönü 90 etiket nolu deyime (üçgen değildir mesajının 
yazdırıldığı kısma) yönlendirilmiştir. e Eşitsizlikler sağlanmıyorsa, yani her 
bir IF deyimindeki mantıksal ifade FALSE değerini alıyorsa, bu durumda 
GOTO'lar ile yönlendirme söz konusu olmayacak ve sonuçta bir üçgenin ke- 
narlarını oluşturduğu kesinleşecektir. Üçgenin kenarları olduğu tesbit edildik- 
ten sonra çevresini üç sayının toplamı ile buluruz. 


4.3.4 ON-GOTO Deyimi 


ON-GOTO deyiminin genel kullanım şekli 

ON itamX GOTO(yı, ye. Y3.....Y.) 
olarak tanımlanmıştır. Burada yı, yz, ... mevcut çalıştırılabilir deyim numara- 
larını, TTAMĞ da bir tamsayı veya tamsayı değişkeni veya tamsayı aritmetik 
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ifadeyi vermektedir. Bu deyim ile TTAM&—1 olduğunda program akışını yı, 
ITAM72—2 olduğunda y>, ... ITTAM—n olduğunda y,, etiket numaralı satıra 
yönlendirir. Eğer ITAMĞ<I veya ITAM> n olursa program akış yönü 
değişmez; bir sonraki satıra geçilir. 


Örneğin 


5 K/-15 
10 14-6 
15 ON K//1/41 GOTO 30,35,42,47,52,55 


programında K/1--1—3 olacağından program akış yönü 42 nolu deyim satırına 
gider. 

ÖRNEK 6: Bir sigorta şirketinin uyguladığı sağlık sigortası primi esasları 
şöyle belirtilmektedir. Aylık prim, şahıs yaşının 10,000 katı olarak belirleniyor. 
Ayrıca şahıs bekar ise (ID 7—1) & 10, evli ve çocuksuz ise (ID4—2) & 15 ve 
evli ve çocuklu ise (ID4—3) & 25 iskonto uygulanıyor. Şahsın yaşını (IY&) 
ve durumunu (IDĞ) esas alarak aylık sigorta primini hesaplayan bir program 
yazınız. 


10 REM SIGORTA PRIMI PROGRAMI 
20 INPUT "ŞAHSIN YAŞINI GIRINIZ ";1Y7 

30 INPUT "DURUM KODUNU GIRINIZ ";1D/ 

40 REM --- HATALI GIRIŞ VARMI? KONTROL ET! -—- 
50 IF (IDY<i OR IDY>3) THEN 140 

60 PRIM-IY/*10000 

70 ON IDX GOTO 80, 90, 100 

80 (OPRIM-0.90#PRIM 

85 GOTO 110 

90 O PRIM-0.85*PRIM 

95 GOTO 110 

100 PRIM-0.754#PRIM 

110 PRINT "AYLIK PRIM-"; PRIM 

120 STOP 

130 REM ----- HATA MESAJI BLOĞU ----------- 

140 PRINT "YALNIŞ DURUM KODU GIRDINIZ " 

150 PRINT "i<- KOD <s 3 OLMALIDIR " 

160 STOP 

170 END 


Bu programda ON-GOTO deyimi kullanılarak ID&'nin 1 olduğu durumda 80, 
2 olduğu durumda 90 ve 3 olduğu durumda da 100 etiket nolu satırlara (blok 
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satır başı) yönlendirme yapılıyor. Her bir blokta ID şartını sağlayan işlemler 
yapılıyor; yani ID—I iken & 10 iskonto uygulanıyor v.s. 


4.3.5 Matematiksel Fonksiyonlar 


Bu fonksiyonlardan görüleceği üzere matematikte karşımıza çıkan fonksiyon- 
ların bazılarının BASI€te karşılıkları yoktur. Fakat eldeki fonksiyonları kul- 
lanarak bunlar hesaplanabilir. Bunlara ilişkin örnekler aşağıdaki tabloda ve- 
rilmektedir. 

BASIC fonksiyonları hakkında dikkat edilecek hususlar şunlardır: 


ATN(X) Fonksiyonu 


Bu fonksiyonda X bir sayısal değişken olmalıdır. X'in aldığı değer radyan 
cinsindendir. Fonksiyonun sonucu ise -7/2 ile 47/2 değeri arasındadır. Bu 
fonksiyonun değerlendirmesini /d anahtarlama işlemi yapılmadığı takdirde, 
sonuç tek hassasiyetli olarak hesaplanır. Anahtarlama ile işlem çift hassasiyetli 
olarak hesapalanır. Örnek: 


ATN(3)-1.249046 


Dereceyi radyana çevirmek için X değerini 7/180 sayısı ile çarpmak yeter- 


lidir. 


CINT(X) Fonksiyonu 


Ondalıklı sayıları en yakın tamsayıya çevirir. Eğer X değeri -32768 ile 32767 
arasında değilse “Overflow” hata mesajı verir. Ornek: 
CINT(37.78)-38 CINT(-2.34)--2 


CDBL(X) Fonksiyonu 


Gerçek sayı olan X sabitini bir çift hassasiyetli bir sayıya çevirir. Örnek: 
CDBL(454.67)-454.6700134277344 


Burada 454.67 rakamının ondalık kısmı iki basamaklı olarak tanımlandığın- 
dan ondan sonraki 11 basamağın bir anlamı yoktur. 


CSNG(X) Fonksiyonu 


Çift hassasiyetli X sabitini tek-hassasiyetli sabite çevirir. Örnek: 


4.3. KARAR VERME YAPISI 67 


Tablo 4.2: GWBASIC'te tanımlı olmayan matematiksel fonksiyonlar ve nasıl 
tanımlanacaklarına ilişkin kaynaklar. 


Fonksiyon OBASIC Eşdeğeri 


seci x) 1/COS(X 
cosec(x) Saki 

cot(x) I/TAN(X 

logıg LOG(X eu 10) 


arcsin/ix) Oo ATN(X/SOR(1-X*X)) 

arccos/ix) (o ATN(X/SOR(1-X*X))4-7x/2 

arcsec(x) o ATN(X/SOR(X*X-1))-- se may ia -1)*7/2 
)  ATN(X/SOR(X*X-1))-4(SGN(X)- se. 

arccot(x) (oOATN(X)47/2 

sinh(x) (EXP(X)-EXP(-X))/2 

cosh(x) (EXP(X)-EXP(-X))/2 
) (EXP(X)-EXP(-X))Y/(EXP(X)4-EXP(-X)) 


aTcCsc(X 


) 2/(EXP(X)4EXP(-X)) 
csch(x) 2/(EXP(X)-EXP(-X)) 
coth(/x) EXP(-X)/(EXP(X)-EXP(-X))*24-1 
arcsinh(x) OLOG(X/SOR(X*X-4-1)) 
arccosh(x) LOG(X-SOR/(X*X-1)) 
arctanh(/x) LOG((14X)/(1-X))/2 
arcsech(/x) LOG ilmi X*X)41)/X 
arccosh(x) o LOG(SGN(X)*SOR(X*X--1)4-1)/X 
arccoth/x) LOG(X-41) ir 2 
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10 A#-975.3421222# 
20 PRINT A#;CSNG(A#) 
RUN 

975.3421222 975.3421 


COS(X) Fonksiyonu 


X sayısal değerinin kosinüsü hesaplar. Burada X radyan cinsindendir. Dereceyi 
radyan çevirmek için 7/180 ile çarpmak gerekir. Bu fonksiyonda GW-BASIC 
programını çalıştırırken /d anahtarı kullanılırsa sonuç çift hassasiyetli olarak 
hesaplanır. Örnek: 


10 X-24C0S(0.4) 10 PI-3.141593 

20 PRINT X 20 PRINT COS(PI) 

RUN 30 DERECE-180 

1.842122 40 RADYANSDERECE*P1/180 
50 PRINT COS(RADYAN) 
RUN 
-i 
-1 


EXP(X) Fonksiyonu 


“e” sayısının, yani 2.17183 sayısının X'inci kuvvetini hesaplar. X sayısı 
88.02969'dan küçük olmalıdır. Aksi takdirde “overflow” hata mesajı ile 
karşılaşılacaktır. Diğer matematik fonksiyonlarında olduğu gibi bunda da GW- 
BASIC programı /d anahtarı ile çalıştırılırsa sonuç çift hassasiyetli olur. 


FIX(X) Fonksiyonu 


Ondalık bir sayı olan X değerinin noktadan sonraki ondalık kısmını kaldırır. 
Ornek: 
FIX(37.98)-37 FIX(-13.45)>-13 


INT(X) Fonksiyonu 


X değerine yakın olan en küçük tamsayıya yuvarlar. Örnek: 
INT(21.99)-21 INT(-2.14)>-3 
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Tablo 4.3: Tamsayıya dönüştürme fonksiyonlarına ait örnekler ( Parantez için- 
deki eksi işaretinin anlamı pozitif olarak verilen sayıların negatif değerlerini 
kastetmektedir. ) 


INT 2 7 
NT(OJ 3 4 5 
CINT 2 4 5 
NT 5 4 
FIX ği 3 4 


LEN(X$) Fonksiyonu 


XS$ alfasayısal sabiti veya değişkeninin karakter sayısı yani değer bir deyişle 
alfasayısalın uzunluğunu verir. Değişkendeki boşluklar da bu uzunluğa dahil 
edilir. Ornek: 


1 2 2 
1234667890... 5 v0 müm 7 
10 A$-"T.C. OSMANGAZI UNIVERSITESI" 
20 PRINT LEN(X$) 
RUN 
27 


LOG(X) Fonksiyonu 


Gerçek X sayısının doğallogaritmasını, yani e tabanına göre logaritmasını, 
hesaplar. Buradaki X değeri sıfırdan büyük olmalıdır. Diger matematik 
fonksiyonlarında olduğu gibi bunda da GW-BASIC programı /d anahtarı ile 
çalıştırılırsa sonuç çift hassasiyetli olur. Örnek: 

LOG(2)-0.6931471 


10 tabanma göre logaritma hesabında log,,x — Inx/In10 bağıntısından 
faydalanılır. Böylece, örneğin, 245 sayısının 10 tabanına göre logaritması 


10 X-245 
20 LOG10X-L0G(X)/L0G(10) 
30 PRINT LOG1OX 
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RUN 
2.389166 


şeklinde elde edilir. 


SGN(X) Fonksiyonu 


Gerçek X sayısının işaretini verir; matematikteki sgn(x) olarak bilinen işaret 
fonksiyonudur. Eğer X pozitif (--) ise 1, negatif (-) ise -1, sıfır (0) ise 0 değerini 
verir. Ornek: 

SGN(-14.13)--1 SGN(2.565)-1 SGN(0)0 


SOR(X) Fonksiyonu 


Gerçek X sayısının karekökünü hesaplar. X sıfırdan büyük olmalıdır. Örnek: 
SOR(10)3.162278 SOR(20)-4.472136 


STRS$S(X) Fonksiyonu 


X sayısal değerini alfasayısal gösterime çevirir. VAL(XS) işleminin tersidir. 
Örnek: 


10 Xs10.56 
20 Y$-STR(X) 
30 PRINT Y$ 
RUN 

10.56 


TAB(X) Fonksiyonu 


Ekranda X pozisyonu kadar boşluk koyar. X pozisyonu soldan sağa doğru 
değişen karakter sayısı olarak alınır. TAB(1) ekranda, satırın en sol noktasını 
verir. En sağdaki pozisyon ekran genişliğidir, yani 80'dir. X değeri | ile 255 
arasında değiştirilebilir. X seksen (80) değerini aştığında bir alt satıra geçer. 
TAB deyimi PRINT, LPRINT veya PRINT# deyimleri ile beraber kullanılıla- 
bilir. Örnek: 


10 PRINT "ADI";TAB(25) ; "MIKTAR" 
20 A$-" AHMET" :MK$-"2,500,000 TL" 
30 PRINT Â$;TAB(25) ;B$ 

RUN 


4.4. TEKRARLI ARİTMETİKLER Tl 


ADI MIKTAR 
AHMET 2,500,00 TL 


TAN(X) Fonksiyonu 


Gerçek X değerinin tanjantını hesaplar. Diğer trigonometrik fonksiyonlarda 
olduğu gibi X radyan cinsindendir. TAN bazen “Overflow” hata mesajı vere- 
bilir. Çünkü X—x/2 olduğunda TAN değeri sonsuzdur. Bilgisayar burada 
uygun bir işaret ile (-00) belirtir ve işleme devam eder. Bu hata mesajını 
vermesine rağmen bilgisayarın işleme devam ettiği tek durumdur. Örnek: 


TAN(3.14159)-0 


VAL(X) Fonksiyonu 


Alfasayısal olarak atanan X$ alfasayısal sabiti veya değişkenini sayısal sabite 
dönüştürür. Bu arada X$ da tanımlanmış boşluk içeren karakterlerde ortadan 
kadırılır. Eger X$ bir sayısal değil ise fonksiyon SIFIR değerini verir. Bu ne- 
denle fonksiyon mutlaka sayısal ifadeden oluşan alfasayısallara uygulanmalıdır. 
Örneğin, 

VAL(" -15 ")--15 Ooo VAL("A.785 “)-4.785 Oo VAL(" X14.3")-0 


4.4 TEKRARLI ARİTMETİKLER 


Programlama dillerinde öğrencilere ters gelen bir uygulama da bilgisayarda 
yapılan çok sayıdaki toplama (veya çıkarma, çarpma, bölme) işlemi için izle- 
nen metoddur. Örneğin, ekrandan girilen 10 adet sayının toplamını veren 
programın bir kısmı 


10 N/>0 

20 T-O 

30 N/2N/#1 

40 INPUT X 

50 T-T*X 

60 IF (N/<10) THEN GOTO 30 
70 PRINT "T-";T 


şeklinde olabilir. Bu programda N& sayıları sayan bir sayaç ve T ise işlemler 
sonunda bu sayıların toplamını verecek bir değişkendir. Bu programda 30 ve 
30.ci satırlarda kullanılan ifadeler matematiksel olarak bir eşitsizliği göstermek- 
tedir. Nasıl olurda N—N--1 ya da T—T-4X olur? Bu soru kısmen Bölüm 3'de 
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-—1 
DE 


aritmetik atama kısmında cevaplandırılmıştı. Eşitlik N—N-41 ve T-T-4X'e 
karşılık gelmektedir. 

Bu ifadeleri matematiksel olarak açıklamak için, ayrıca, rekürans bağın- 
tılarını anlamak gerekir. Rekürans bağıntılı bir dizi ele elalım. Genel terimi 
Üy Z üy-ı 3 ve ap <— O olsun. Bu dizinin n > | için elemanları şu şekilde 
bulunur: önce genel terimde n — 1,2... için 


da — ag *3—(0)43—3 
üz — 4, 413—-(3)413—6 
a3 < d7543(6)43 —9 

(9) -3—12 


G4 — 43-3 — 9 


Bu şekilde dizinin elemanlarının sırasıyla 0,3.6.9,12.. şeklinde oluştuğu görülür. 
Dikkat edilirse a, — 12 olup dört kez üç'ün toplamına eşittir. Bilgisayardaki 
N—N--1 ifadesi işlem gördüğünde N'in değerini bir öncekine göre bir artıran 
rekürans ifadesine benzetilebilir. Diğer yandan T—T-X ise T değerine her 
işlemde X sayısını ekler. Bu ifadeler ilk işlem sırasında sağdaki T değeri ne ise 
onun üstüne ekleme yapar. Bu rekürsif işlemde indisleri kaldırırarak yazarsak, 
T—T-X ifadesi elde edilir ki, burada sağ tarafındaki toplam hesaplanır ve 
eşitliğin sol tarafındaki değişkene atanır. 

Çok sayıda çarpma işlemi yapmak gerektiğinde de toplama işlemine ben- 
zer bir rekürsif işlem uygulanabilir. Örneğin, n! hesabını yapan bir program 
hazırlayalım. 


10 INPUT N/ 

20 F-i: 17-0 

30 IF (N/-0 OR N/-1) THEN 70 
40 17:1441 

50 F-F*I/ 

60 IF (IY<>NX) THEN 40 

70 PRINT N/;"!—";F 

80 END 


Burada da F—F“J ifadesi F; — EF; , *#7,7 > 1 ve Fozl şeklindeki bir 
rekürans, veya F—PF“T, bağıntısı şeklindedir. 
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4.55 TEKRARLI DÖNGÜ YAPISI 


Sık sık bir dizi işlem ve deyimin bazı parametreler değiştirildikten sonra tekrar 
işlenmesini gerektirir. Bunlara döngü adı verilir ve bir sayaç (işlemin kaç kere 
tekrarlandığını hesaplar) kullanımını gerektirir. Bu tür bir yapının genel kul- 
lanım şekli aşağıda verilmektedir. 


5 REM -- SAY/ : SAYAÇ 

10 SAY/-O 

20 INPUT <bir gurup veri> 
işlemleri yap 
PRINT <sonuçlar>, SAY/ 
SAY/-SAY/*1 

98 IF (SAY/<20) THEN GOTO 10 

99 END 


Bu programda işlemler 20 kez tekrarlanır; daha sonra program durur. Yuka- 
rıda faktoriyel hesabını veren program bu programlama tarzına tipik bir örnek 
oluşturmaktadır. 

ÖRNEK 7: Bir cismin ho metre yüksekliğindeki bir noktadan vo başlangıç 
hızı ile yukarı doğru dik olarak atılmasıyla zamana göre cismin konumunu 
(yüksekliği) veren bir program yazınız. Yazacağınız program, cismin hareketini 
t—0'dan başlayarak AM artırımlar için yere değinceye (h <0) kadar hesaplayıp 
bir tablo oluşturması isteniyor. 


Bu problemin çözümü 
1 3 
hs ho İ- vyt —— 5gt 


denklemiyle verilmektedir. Amaç, bu ifadenin programlanmasıdır. 


10 REM KONUM PROGRAMI 

20 G-9.8 

30 INPUT "VO, HO VE DT DEĞERLERINI GIRINIZ", VO, HO, DT 
40 T-0.0 

50 H-HO*VO#T-O.5*G*T*T 

60 PRINT "T-";T," SN IÇIN H-";H 

70 TST4DT 

80 IF (H<0) THEN 90 ELSE 50 

90 END 
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WHILE-WEND Deyimi 


Belirlenen bir koşul geçerli olduğu sürece bir dizi deyimden oluşan bir 
döngünün çalışmasını sağlar. Bu deyim 


WHILE ifade 


WEND 


yapısı kullanır. Eğer ifade “doğru” değeri alıyor ise döngü çalışır; aksi takdirde 
WEND'den sonraki satıra geçer. İçiçe WHILE-WEND döngüleri kullanılabi- 
lir. Eşleşmeyen WHILE-WEND durumlarında “WHILE without WEND” veya 
”WEND without WHILE” hata mesajlarına neden olur. 


Yukarıdaki örneği WHILE-WEND yapısı kullanarak da programlayabiliriz. 


10 REM KONUM PROGRAMI 

20 G-9.8 

30 INPUT "VO, HO VE DT DEĞERLERİNİ GIRINIZ", VO, HO, DT 
40 120.0 

45 WHILE (H>-0) 

50 H-HO*#VO*T-O.5*G*T*T 

60 PRINT "T2";T," SN IÇIN H-"“;H 

70 T-T*DT 

80 WEND 

90 END 


4.6 PROBLEMLER 


4.1 Aşağıdaki programlarda varsa hataları bulunuz. 


a) 10 IF (4-10) b) 20 IF (X>4.75) THEN X-4.75 ELSE X-4.75 
20 THEN STOP 


c) 40 IF (I.EG.N) THEN GOTO 25 

d) 40 IF (A142*B<3.55) THEN X.EG.1.234 

e) 40 IF 6>-3 G0TO0 41 

f) 40 IF (X*Y) THEN C-SOR(At1.254B) 

g) 40 IF (3*A-24B>-44X1Y) THEN Z-SOR(A4B*X1Y) 


4.6. PROBLEMLER 75 
4.2 Aşağıdaki işlemleri yapan bir program yazınız. 
5 i 6 i 1/3 4 i giti 
(0) (25 — 3 mı) 4S s5. we — 
izl g1 —İ 2 1 3 
4.3 y — 2c ““Sisin(4/3) denkleminin, #nin 1 ile 10 arasındaki değerlerine 


karşılık gelen y değerlerini bir tablo halinde veren bir program yazınız. Not: 
At artırım miktarı dışarıdan girilecek şekilde seçenekli olsun. 

4.4 sin(r) ve cos(x) fonksiyonlarının 0-180 derece arasında aldığı değerleri 
tablo halinde veren bir program yazınız. Not: Az artırım miktarı dışarıdan 
girilecek şekilde seçenekli olsun. 

4.5 Ekrandan girilen edilen 35 sayıdan tek ve çift olanlarının sayısını veren bir 
program yazınız. 

4.6 Bir arı kovanında 380 arı mevcuttur. Arıların haftalık çoğalma oranı 
2.3 olduğuna, iki haftada bir & 1.98'i çeşitli nedenlerle öldüğüne göre arıların 
bir yıl için, arı nüfusunu haftalık olarak veren bir program yazınız. 

4.7 Suyun deniz seviyesinde kaynama noktası 1009C dır. Su deniz seviyesinden 
daha yükseklerde daha düşük sıcaklıklarda kaynar. Yükseklik H (metre) olarak 
alındığında XKN (kaynama noktası) aşağıdaki bağıntı ile hesaplanabilir: 


Gi H 

XKN—100— Tü 
Bir bilgisayar programı yardımıyla kaynama noktasını 100'er metrelik basa- 
maklarla 5000 metre yüksekliğe kadar hesaplayınız. 
4.8 Bir üniversite maksimum 15,000 öğrenciye eğitim verecek şekilde tasarlan- 
mıştır. İlk yıl 9,000 öğrenci kayıt olmakla birlikte öğrenci kayıt oranın her yıl 
“ 5.5 arttığı tesbit edilmiştir. Bu artışın sabit kaldığı varsayılırsa, maksimum 
kapasiteye ulaşmak için kaç yıl gerektiğini hesaplayan bir program yazınız. 
4.9 5'i kız (K) ve T'si erkek (E) 12 kişilik bir sınıftaki öğrencilerin matema- 
tik ve fizik sınavlarından aldıkları notlar aşağıdaki tabloda verilmektedir. Bu 
sınıftaki öğrencilerden (a) Her iki dersten geçer not alan (50 ve üstü) kız öğren- 
cilerin sayısını, (b) Her iki dersten başarısız olan erkek öğrencilerin sayısını, (c) 
Matematikten başarılı fakat fizikten başarısız olan erkek öğrencilerin sayısını 


veren bir program yazınız. 


DERN EN ENES ES CEN EN ENEL 


latematik is) Ji Jeo a as es az ea hareli 
EN EEE EESEHEZENENE 
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4.10 Bir mağazada 35 çeşit ürün satılmaktadır. Mağazaya mal giriş-çıkışınının 
bilgisayarlı bir sistem ile yapılması arzu edilmektedir. Ürün adı, fiat ve stok 
verileri READ-DATA deyimi ile temin edilmektedir. Stoğu tükenen ürünün 
varlığını araştıran bir program yazınız. 

4.11 Bir banka aylık & 9 faizle en fazla 2 yıla kadar kredi vermektedir. 5 mil- 
yon'dan başlayarak 5'er milyonluk artışlarla 200 milyon'a kadar kredi alınması 
durumunda müşterinin ödeyeceği aylık taksitleri gösteren bir tablo oluşturmak 
istenmektedir. Bu koşullara uygun bir program yazınız. Kullanılacak formül 


rP 


Taksıt — ———— 
1—( ir) 


P kredi miktarını (TL). r aylık faizi (bu durum için 0.09) ve n kredinin süresini 
(ay olarak) ifade etmektedir. 
4.12 Dört gerçek A,B,C,D, bir I tamsayı değerlerini okuyan ve aşağıdaki 
işlemleri yapan bir program yazınız. 

Eğer I—1 ise X—A4B-C4D 

Eğer I—2 ise X—(A44B-C4D)/4.0 

Eğer 13 ise X—A/B-C/D 

Eğer 14 ise X—(A44B)/(C-4D) 

Eğer 1X5 ise X—A/B-C/D 

Eğer 1X0 ise Programı Terket 
4.13 Mehmet satın aldığı dört vitesli bir bisikletin kullanım kılavuzuna bak- 
tığında, bisikletin dişli oranlarının aşağıdaki şekilde verildiğini gözlüyor. 


Vites Dişli Oranı 


I İİ 
2 2.i:1 
3 1.6:1 
4 bd 


Bisikletin hızının aşağıdaki formülle hesaplanabileceği göz önünde tutul- 
duğunda bisikletin girilen vites değeri ve devir sayısı için hızını veren bir prog- 
ram yazınız. 


HIZ (km/s) — 0.0284 DS/DORAN 
Burada DS dakikadaki devir sayısı (devir/dak.) ve DORAN ise dişli oranıdır. 


Bu formül uyarınca düşük viteste dakikadaki devir sayısı 3300 ise hızı 


0.028 x 3300 x 1/3.3 — 28 km/s 
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—I 


— 


bulunur. 


4.14 Aşağıdaki matematiksel işlemleri yapan ve ekrana XO ve Y değerlerini 
yazan bir program yazınız. 


XO Le N 
v-iğe. 0-6) 


nl 


4.15 İki bilinmeyenli iki denklem 
A-X4B-Y —C 


D.X-4E-Y—F 
olarak verilmiş olsun. Bu denklem sisteminin çözümü 


 BE-BHE , WE-DE 


İm vE EE: o A-E—D.B 


dir. Dışarıdan temin edilecek A, B. C, D. E ve F katsayıları için X ve Y 
değerlerini hesaplayan bir program yazınız. 

4.16 Birden 100'e kadar olan tamsayıların ?şer artırımlarla sırasıyla n, n?, 
Vn, n3, Gn değerlerini hesaplayan bir program yazınız. 

4.17 Kurt ile tavşan nüfusunun ekolojik simulasyonu yapılmak isteniyor. Si- 
mulasyonun yapıldığı yörede tavşanlar yeşil, kurtlarda sadece tavşan ile beslen- 
mektedir. Yörede çok sayıda yeşillik var iken tavşanlar ile beslenen kurtlar bir 
dezavantaja sahiptir. Kurt nüfusu yiyecek miktarı (tavşan) ile artmaktadır. 
Tavşan ve kurt nüfusunun günlük değişimi (sırasıyla T ve K) aşağıdaki for- 
müller ile verilmektedir. 


T (yarın) —(1-4-a—c*K)*T (bugün) 


K (yarın) —(1—b-4-c*d*T)*K (bugün) 


Burada a tavşanlar kurtlar tarafından avlanmadıkları takdirde çoğalma oranı 
0.01 ( 1), b yiyecek tavşan bulamamaları takdirde kurt nüfusundaki azalma 
oranı 0.005 (& 0.5), e bir kurt'un bir tavşan ile karşılaşma ve tavşanı yeme 
ihtimali 0.00001 (4 0.001) ve d tavşan ile beslenen kurtların nüfusundaki artış 
oranı 0.01 (G1) olarak alınmaktadır. 

Kurtlar ile tavşanların günlük nüfus seviyelerini 1 yıl için (365 gün) he- 
saplayan bir program yazınız. Başlangıçta 10,000 tavşan ve 800 kurt mevcut 
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olduğunu kabul ediniz. Daha sonra kurt sayısını iki misli artırarak hesabı 
yenileyiniz. 
4.18 Bir basit AB kirişinin herhangi bir P noktasına yerleştirilen # tekil yükü 
sonucunda A ve B mesnetindeki reaksiyonlar aşağıda verilmiştir: 

, Fb Ha 


Ra Rg — 7) 


Eğilme momenti ve X mesafesindeki sehim aşağıdaki denklemler ile saptanıyor: 


FOX FİX(2—2 — X2) 
e İd), — — FA ve —AJ 
an m dpi Bien GETİ 
ve 
— Z 2 -x3 
X>a, LAN a (öl, — yi gey ii ET) 


t GET 


Burada (BM),—X'deki eğilme momenti (kg.m), (DE),.—X'deki sehim (m), 
Ezelastisite modülü (kg/m), I—atalet momenti (m*), / — |AB)| mesafesi (m), 
a — |AP| mesafesi ve b — |PB| mesafesidir. Maksimum eğilme momenti 


Fab 


Mn — 
(BM )maz > — 


ve maksimum sehim (a > 6 için A noktasından itibaren) 


a TT © FX? 
RE — 3 VE (DE)maz > —EEip 


a < biçin B noktasından itibaren 


Ma) © Fax 
3 vE DE İnn 3EN 


A 


Buradaki X, artık maksimum sehimin oluştuğu yerdir. Reaksiyonları, eğilme 
momentlerini ve sehimi A/ aralıklarla hesaplayan bir program yazınız. Yaza- 
cağınız programda kiriş özellikleri (E ve 7) ile uzunluğu (0), aralık miktarı 
(A4), yükün yerleştirildiği nokta (P) ve yük değişken olarak seçilebilmelidir. 

4.19 Bir hava sıcaklığı tahmini yapmak için şöyle bir metod izleniyor. Bir 
bilgisayar programı rüzgarın estiği yöne göre sıcaklık düşüşleri her 10 km/h 
için hesaplıyor. Örneğin, herhangi bir gün ve anda rüzgarın yönü doğu, kuzey, 
batı ve güney için her on kilometre saat için sıcaklık düşüşleri sırasıyla 1.59C, 
1.79C, 1.49C ve 1.19C olsun. Bu anda hava sıcaklığını, sıcaklık, rüzgarın hızı 
(km/h) ve yönü girildiğinde hesaplayan bir program yazınız. NOT: Rüzgar 
yönü Kuzeydoğu ise sıcaklık düşüşü Kuzey ve Doğu için verilen değerlerin 
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ortalaması olarak alınacaktır. Ayrıca, yönleri belirlemek için yön kodu kul- 
lanınız. 


4.20 Bir araba kiralama firması çeşitli model arabalarını günlük ve haftalık 
olarak kiralamaktadır. Bir arabanın kira bedeli, kiralanan gün sayısı (N) çarpı 
günlük kira bedeli (GNLK) artı aracın aldığı yol (5S) çarpı km başına bedel 
(BKM) ile hesaplanıyor. 


Haftalık kiralama durumunda ise, haftalık kira bedeli (HFT) artı kullanılan 
benzin ücretidir. Bu durumda haftalık kira bedeli, gidilen yol, benzin sarfiyatı 
BS (km/lt) ve benzin fiyatının BF (TL/It) bir fonksiyonudur. 

Firmanın elindeki arabalar normal, spor, lüks limuzin olarak üç gurupta 
toplanıyor. Bu guruplara ait veriler aşağıdaki tabloda özetlenmektedir. 


GNLK BKM 
(Bin TL) | (Bin TL) > e sm (Bin KN 


m m e e İİ 


Araba kiralamak isteyen bir şahıs. günlük veya haftalık bazda, kiralayacağı 
bir araca ne kadar kira ücreti ödeyeceğini veren bir program yazınız. NOT: 
Haftalık kira bedelini hesaplarken, bir hafta boyunca araba ile katedilen yolun 
girilmesi gerekir. 


21. Aşağıdaki programların çıktılarını bulunuz. 


(a) (b) 
10 A$-"MERHABA" :B$-" ORHAN" 10 AYs-1 : B/--1 
20 PRINT A$1B$ 20 C/-AX AND B/ 
30 A$-A$*B$ 30 D/-A/ OR B/ 
40 PRINT A$ 40 PRINT A/,B/,C/,D/ 
50 A$SA$*B$ 50 END 
60 PRINT A$ 
(c) (d) 
10 AY/--1: B/-0: C/-0 10 A/-O : B/--1 
20 XY-NOT(AZ AND C/) 20 C/-AY OR B/ 
30 YAZNOT(AZ AND B/) 30 D/-AX AND NOT B/ 
40 D/-(NOT AZ) OR (NOT B/) 40 E/-BY OR NOT D/ 
50 E/Z(NOT A/) OR (NOT Y7/) 50 PRINT C7, D4, E/ 


60 PRINT X/; Y4; DZ; EH 60 END 


70 
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END 


(e) 

READ A$ 

IF A$>"K" THEN 50 

PRINT A$ 

GOTO 60 

PRINT " ",A$ 

READ A$ 

GOTO 20 

END 

DATA "ALI", "MEHMET", "CEMIL" 


(£) 
10 DATA 7,0,4 
20 DATA 5,9 
30 READ A,B,C,D 
40 DATA -1,3 
50 X-3#A4B-C14*D 
60 RESTORE 20 
70 READ X1,X2,X3 
80 Y-(X14X24X3) /3 
90 RESTORE 40 


DATA "SEMIH","ZEKI","BILAL" 100 READ Y1,Y2 
110 PRINI X,Y,Y1,Y2 
120 END 
(g) (h) 
DATA 3,7,-4,0,13 10 B-3 :C-40 
INPUT K 20 B-Bt1 :C-C12 :N-N11 
M-2 30 X-24B1C: C2 
READ Y:PRINT Y:M2M*1 40 IF X<C2 THEN C-C-i ELSE B-Bt1 
IF M<-K THEN 40 50 IF C>B THEN Cz-C-1 
DATA -18,67,6,908,1.35 60 B-Bt1 
END 70 IF N>5 THEN 100 
DATA 78,-93,62 80 PRINT N,B,C,X 
DATA 51,5,-19,0,12 90 N-N*1:G0TO 30 
100 END 
(i) (0) 
10 X:1.25 10 Cz4:K-6 
20 YEY*X10.75 20 B-K1C-7 
30 DATA 3,1,2 30 D-K/B 
40 READ X,Y 40 IF D>C THEN 60 
50 Y-Y*AX 50 K-K12:C2Ct1 
60 READ X 60 PRINT K;C;B;D 
70 Y2YıX 70 IF (K<40) OR (C<18) THEN 20 
80 PRINT Y 80 END 


90 END 


Bölüm 5 


KÜTÜK YARATMA VE 
KULLANMA 


BASIC ve başka programlama dillerinde iki türlü kütük yaratılabilir: (a) sıralı 
erişimli ve (b) rastgele (doğrudan) erişimli kütükler. Sıralı erişimli kütük oluş- 
turmak rastgele erişimli kütük oluşturmaktan daha kolaydır; fakat sıralı eri- 
şimli kütükler veriye erişmek gerektiğinde hız ve esneklik bakımından sınırlıdır- 
lar. Veriler kütüğe yazdırma sırasıyla kaydedilir ve veriler bu sırayla okunur. 

Rastgele erişimli kütükler yaratma ve buradaki verilere erişme, sıralı eri- 
şimli kütüklerden biraz daha zahmetli programlama gerektirmesine rağmen, 
veriler alfasayısal olarak sıkıştırdığından dolayı diskte daha az yer gerektirir- 
ler. 


5.1 GİRDİ/ÇIKTI DEYİMLERİ 


Veriler kütüğe veya ekrana yazdırmada kullanılan programlama deyinmek 
gerekir. Bunlar 


INPUT# 


Bir sıralı kütükten verilerin okunup değişkenlere atanmasında kullanılır. Genel 
kullanım şekli: 


INPUT# kütük numarası, değişken listesi 
Burada kütük numarası girdi kütüğünün okumaya açıldığında kütüğe verilen 
numaradır. değişken listesi, verilerin atanacağı değişkenlerin isim Jisteleridir. 


Bu deyim rastgeler erişimli kütüklerde de kullanılabilir. 


81 
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INPUT deyimi ile verilen bütün kurallar bu deyim için de geçerlidir. 

Aşağıdaki programda sadece bir adet GIRDI.DAT isimli bir sıralı okuma 
kütüğü kullanılmaktadır. A,B,C ve X.Y sayısal değişkenlerinin değerleri bu 
kütükten ve programda çeşitli yerlerden okunabilmektedir. 


10 OPEN "I",#1,"GIRDI.DAT" 


...... 


...... 


80 INPUT#1, X,Y 
Birden fazla kütük kullanım halinde farklı kütük numaraları kullanılmalıdır. 


10 OPEN "I",#1,"VERI1.DAT" 
20 OPEN "I",#2,"VERI2.DAT" 


...... 


80 INPUT#2, X,Y 


A, B, C'nin değerleri VERN.DAT isimli sıralı kütükten okunurken, X ve Y'nin 
değerleri de VERI2.DAT sıralı kütüğünden okunmaktadır. Bu okuma işlem- 
lerinin yapılabilmesi için bu kütüklerin daha önceden açılmış olması ve içine 
verilerin kaydedilmiş olması gerekir. Eğer kütük açılmamışsa ya da kütüğün 
adı yalnış olarak yazılmış ise bu durumda “File not found in xxxx gibi 
bir mesaj vererek kütüğün dizinde mevcut olmadığını belirtilir. 


PRINT USING 


Alfasayısal ve/veya sayısal değişkenlerin değerlerinin ekranda belirli bir dü- 
zende (formatta) yazılmasını temin eder. 


PRINT USING format belirteci;ifadeler listesil;) 


format belirteci, özel formatlama karakteri içeren alfasayısal bir değişkendir. 
Formatlama karakterleri alan ve basılacak alfasayısal ve sayısal değerlerin for- 
matını belirler. 

ifadeler listesi, noktalı virgül ile ayrılmış sayısal ve alfasayısal ifadelerden 
oluşur. 
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1) Alfasayısal Format Belirteçlari 


Alfasayısal değişkenlerin formatlanmasında kullanılan üç tür format alanı 
vardır. Bunlar 
! Alfasayısal değerin sadece ilk karakterinin basımını belirler. 
VW bolukN o Alfasayısal değerin 2 4 n karakterinin basımını belirler. Eğer 
XV karakteri boşluksuz yazılırsa iki karakter basılır. Eğer | 
karakteri sadece bir boşluklu yazılırsa üç karakter basılır ve 
bu şekilde devam eder. Eğer alfasayısal, alandan daha uzun 
ise, fazladan karakterler göz önüne alınmaz. 
& Alfasayısal değişkeninin alan uzunluğunu belirler. Girdi de 
nasıl ise çıktıda aynı şekildedir. 


Örnekler: 


10 X$-"OSMANGAZI" :Y$-"ÜNIVERSITESI" 
20 PRINT USING "!";X$;Y$ 

30 PRINT USING"N o X";X$;Y$ 

40 PRINT USING"N be 
RUN 

DÜ 

OSMANÜNIVE 

OSMANGAZI O(OÜNIVERSITESİ 


10 X$-"OSMANGAZI" :Y$—"ÜNIVERSITESI" 
20 PRINT USING "1";X$ 

30 PRINT USING "&";Y$ 

40 PRINT USING "&";X$;Y$ 

RUN 

0 

ÜNİVERSİTESİ 

OSMANGAZIÜNIVERSITESİI 


2) Sayısal Format Belirteçleri 


Sayısal değişkenlerin formatlanmasında aşağıdaki sayısal alanlar kullanılır. 


# Basamak konumunu belirler. Basamak konumları daima doludur. Eğer 
basılacak sayının belirlenen formattan daha az basamağı varsa, sayısal 
değer sağdan hizalanır. Nokta işareti sayı ile ondalık kısmın ayırımında 
kullanılır. Eğer sayısal değerin basamak sayısı belirlenen alandan fazla 
ise gerekli şekilde yuvarlamalar yapılır. 
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© 


20 PRINT USING "##.##";0.86 

30 PRINT USING "### .##";123.186 

40 PRINT USING "##.##";10.2,25.13,0.876 
RUN 

0.86 

123.19 

10.20 25.13 0.88 


Bu son örnekte formattan sonra üç boşluk bırakıldıktan sonra ”;” işareti 
konarak sayısal değerlerin çıktıları arasına üçer boşluk konması sağlan- 


mıştır. 


4 Format stringinin başına veya sonuna konan artı (4) işareti basılan 
sayısal değerin işaretininde ekrana sayının önüne veya arkasına yazıl- 
masını sağlar. 


- Alan formatının sonuna konan eksi (-) işareti basılan sayısal değerin işare- 
tininde ekrana sayının sonuna yazılmasını sağlar. 


10 PRINT USING"-##.##";-14.3,1.34,48.23,-5 
20 PRINT USING"## .##-";-14.3,1.34,48.23,-5 
RUN 

-14.30 41.34 *48.23 -5.00 

14.30- 1.34 48.23 5.00- 


7555 Dört adet “kullanımı basamak noktasından sonra kullanılarak sayısal 
değerin üstel şekilde belirtilmesini sağlar. 


10 PRINT USING"## .##7777";:123.456 
20 PRINT USING"*.#4#7777";123436 
RUN 
1.24Et02 
t.123Et06 


“.. $ işaretlerinin kullanımını içeren başka formatlama usulleri Türkçe'de 
pek ihtiyaç duyulmadığından kullanımına burada deyinilmemiştir. 


PRINT# ve PRINT# USING 
Verilerin bir kütüğe sıralı olarak yazılmasında kullanılır. Kullanım şekli 


PRINT# kütük nosu, İUSING format belirteci;| ifade listesi 


© 
en 
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Burada kütük nosu, çıktı kütüğü açıldığı zaman kullanılan numara, format 
belirteci, PRINT USING deyiminin kullanımında kullanılan format belirteç- 
leridir. 

PRINT ve PRINT USING kısımlarında bahsedilen kurallar burada da 
geçerlidir. 


Bazı örnekler 


10 OPEN "0",#1,"CIKTI.DAT" 


25 PRINT#İ1, A,B,C 
55 PRINT#1, "A—";A,"B-";B,"C—";G 
65 PRINT#İ, USING"##.###" A;B;C 


LPRINT ve LPRINT USING 


Bir program ile alınması istenen değerlerin yazıcıdan alınmasını sağlar. Kul- 


lanımı 


LPRINT ifadeler listesi 
LPRINT USING format belirteci; ifade listesi 


olarak verilmektedir. Aslında kullanımı PRINT ve PRINT USING ile aynıdır. 
Aradaki tek fark bilgisayarınıza bağlı bir yazıcı varsa, çıktıyı ekrana veya bir 
kütükten ziyade yazıcıdan alınmasıdır. 


WRITE# 


Bir sıralı erişimli kütüğe bilgi yazmada kullanılır. Kullanım şekli 
WAITE#kütük numarası; ifade listesi 


şeklindedir. WRITE# ile PRINT# deyimi birbirlerinden farklı kılan noktalar; 
WRITE'ın değişkenler arasına virgül koyması, alfasayısalları çift tırnak işareti 
ile kapsaması, pozitif sayının önüne boşluk koymaması ve son değişkenden 
sonra bir sonraki satıra geçmesi sayılabilir. 


5 OPEN "0",#1,"AA" 
10 DATA "OZTURK" ,"222-2345" ,12.34,45.678 
20 READ A$,B$,C,D 
30 WRITE#İ, A$, B$ 
40 WRITE#1, C, D 
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co 


Aşağıdaki program çalıştırıldığında 


"OZTURK","222-2345" AA kütüğündeki bilgiler 
12.34,45.678 


şeklinde bir çıktı elde edilir. 


5.2 SIRALI ERİŞİMLİ KÜTÜKLER 


Bir sıralı erişimli kütük yaratırken aşağıda verilen GW-BASIC deyimleri kul- 
lanılır: 


CLOSE (OEOF 

INPUT#  LINE INPUT# 
LOC LOCK 

LOF OPEN 

PRINT# O PRINT# USING 
UNLOCK WRITE# 


Bir sıralı kütük yaratırırken aşağıdaki aşamalar sırasıyla takip edilmelidir. 


1. Öncelikle yaratılacak kütük çıktı modunda (O) olmalıdır. 


OPEN “0” .#1, “kütük ismi 


2. Verileri PRINT# veya WRITE# deyimleri ile kütüğe yazdırın. 
PRINT#I A$.B.C 
PRINT#L XY AD$ 

3. Kütüğe yazdırılmış olan verilere erişmek istiyorsanız, kütük öncelikle ka- 


patılmalıdır. Daha sonra kütük okumaya girdi modunda (1) açılabilir. 
Yani 


CLOSE# 
OPEN “P #1.” kütük ismi” 
4. Veriler programdan INPUT# deyimi ile sıralı olarak okunur. 
INPUT#J A$.B.C 
INPUT#I,X.Y,AD$ 
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Ornek olarak isim, soyad, telefon numarası, adres şeklinde bir kayıt prog- 
ramı için hazırlanan bir program yazalım. Veriler sıralı olarak hazırlanacaktır. 


10 OPEN "0",#1,"VERI.DAT" 

20 INPUT "ISIM ";AD$ 

30 IF AD$-"“OK" THEN END 

40 INPUT "SOYAD ";SA$ 

50 INPUT "TELEFON NO: ";TEL$ 
60 INPUT "ADRES ";ADRS$ 

70 PRINT#1,AD$;SA$;TEL$;ADRS$ 
80 PRINT 

90 GOTO 20 


Burada veriler arasına alfasayısal olarak virgüller konarak verilerin alanları bir- 
birinden ayrılmış olur. Aksi takdirde kayıt tek bir alfasayısal olarak algılanır. 
Bu program ile yapılan iki kayıt girişinin VERI.DAT kütüğündeki görünümü 
aşağıdaki şekilde olmaktadır: 


ZEKI,ALTUN,222-2222,VIŞNELIK ESK 
ILKER, ÖZTÜRK,333-3333,VIŞNELIK ESK 


Bu kütükteki verilere erişmek için aşağıdaki program ile sağlanır. Bu prog- 
ramda kütükten sırayla okunan veriler ekrana yazdırılmaktadır. 


10 OPEN "I",#1,"VERI.DAT" 
20 INPUT#İ,AD$;SA$;TEL$;ADRS$ 
30 PRINT AD$;SA$;TEL$;ADRS$ 


40 GOTO 20 
RUN 

ZEKI ALTUN 222-2222 VIŞNELIK ESK 
ILKER ÖZTÜRK 333-3333 VIŞNELIK ESK 
Input past endin 20 

Ok 


Burada karşılaşılan mesaj “Input past end in 20” başka veri kalmadığını 
ve artık bu satır ile veri okuyamayacağını belirtir. Bunun üstesinden gelmek 
için 10-20.ci satırlar arasına, örneğin 15 IF EOF(1) THEN END eklenir. Bunun 
görevi FOF(1) ile kütüğün sonuna ulaşılıp ulaşılmadığının kontrol edilme- 
sidir. Eğer kütük sonuna ulaşılmış ise EOF(1)—-1 (DOĞRU) aksi durumda 
EOF(1)—0 (YALNIŞ) değerlerini alır. 
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Sıralı bir kütüğe formatlı olarak, yani PRINT# USING deyimi ile verileri 
yazdırmak ve okutmak da mümkündür. 


Eğer sıralı kütüğe veri ilave edilmek istenirse ki bu durum her zaman 
karşımıza çıkabilir; yeni kayıtlara yeni isimler ilave edilebilir. Kütük çıktı mod- 
unda (0) yaratılırsa, o zaman kütük içindeki bilgiler silinir; diğer bir deyişle 
kayıtlar tahrip edilir. Bu nedenle kütük içeriği tahrib edilmeden açılan yeni 
kütükler Append (A) modunda açılmalıdır. Sıralı kütük yaratılan programda 

10 OPEN "0",#1,"VERI.DAT" 
satırı, 

10 OPEN "A",#1,"VERI.DAT" 
olarak değiştirildiğinde kütüğe daha fazla sayıda kayıt, daha önceki kayıt- 
lar tahrib edilmeksizin girilebilir. Örneğin, bu değişikliği yaptıktan sonra, 
Cemil Turan, 555-5555, Fenerbahçe İST, şeklindeki kayıdı girersek, VERIDAT 
kütüğü 


ZEKI ,ALTUN,222-2222,VIŞNELIK ESK 
ILKER, ÖZTÜRK ,333-3333,VIŞNELIK ESK 
CEMIL , TURAN , 555-5555, FENERBAHÇE IST 


şeklinde gözükür. 


5.3 RASTGELE ERİŞİMLİ KÜTÜKLER 


Bir rastgele (bazen doğrudan erişimli olarak da anılır) erişimli kütüğe veri sak- 
lama ve okuma numaralanmış birimler olan kayıtlar ile saglanır. Her bir veri 
gurubunun bir kayıt numarası olduğundan dolayı, kütüğün tümünün taran- 
masına gerek kalmaksızın sadece kayıt numarsıyla erişilebilir. Maksimum kayıt 
numarası 2 — | olabilir. 


Aşağıdaki BASIC deyimleri kullanılabilir: 


CLOSE EOF LSET/RSET 
CVD CVS MKDS 

CVT ET MKI$ 

FIELD LOC MKS$ 
LOCK  LOF OPEN 


PUT UNLOCK 


Bir rastgele erişimli kütük yaratmada aşağıdaki aşamalar takip edilir: 
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İ: 


Öncelikle yaratılacak kütük rastgele erişim modunda (R) olmalıdır. 
Bunu takip eden sayı 32 baytlık bir kayıt uzunluğudur. Eğer kayıt uzun- 
luğu belirtilmesse, bu durumda bilgisayar otomatik olarak kayıt uzun- 
luğunu 128 bayt kabul eder. 


OPEN *R”.#1, “kütük ismü 32 


. Rastgele erişimli kütüğe yazılacak değişkenler için rastgele tampon 


bellekte (buffer) yer hazırlamak için FIELD deyimini kullanınız. 
FTELD#1,20 AS ADS 4 B$,8 C$ 


Bu deyim ile AD$ için 20, B$ için 4 ve C$için 8 karakterden oluşan 
bellek alanı hazırlanır. Bu konumların toplamı olan 32, OPEN deyiminde 
kullanılan sayıya eşit olmalıdır. Diğer bir deyişle 32 rakamı alanların 
toplamıdır. 


. Verileri LSET ve RSET deyimlerini kullanarak rastgele buffer alanlarına 


kaydırmada kullanabilirsiniz. LSET (Left SET) verileri soldan RSET 
(Right SET) sağdan hizalayan formatta tampon bellek alanına yerleştirir. 
Sayısal değerler alfasayısala çevirildikten sonra belleğe yerleştirilmelidir. 
MKIS tamsayıyı, MKS$ tek hassasiyetli bir gerçek sayıyı ve MK DS ise çift 
hassasiyetli bir gerçek sayıyı alfasayısal değere çevirmek için kullanılır. 


4, PUT# deyimini kullanarak bellekteki verileri diske kaydediniz. 


Yukarıda işlenen programın rastgele erişimli olarak hazırlanan programı 
aşağıda verilmektedir. 


10 OPEN "R",#1,"VERIT",58 
20 FIELD#1,10 AS ADI$,10 AS SOYA$,8 AS TELF$,30 AS ADRES$ 
30 INPUT "0-100'E KADAR BIR TAMSAYI GIRIN";KOD/ 

40 IF KOD/>100 THEN END 

50 INPUT "ISIM ";AD$ 

60 INPUT "SOYAD ";SA$ 

70 INPUT "TELEFON NO: ";TEL$ 

80 INPUT "ADRES "“;ADRS$ 

90 LSET ADI$-AD$ 

93 LSET SOYA$-SA$ 

96 LSET TELF$-TEL$ 

99 LSET ADRES$-ADRS$ 


100 PUT#1,KOD/ 
110 PRINT 
120 GOTO 30 


90 


BÖLÜM 5. KÜTÜK YARATMA VE KULLANMA 


Rastgele erişimli kütükteki ulaşmak için sırasıyla aşağıdaki adımlar takip 


edilir. 


1. Kütük rastgele erişim modunda (R) olmalıdır. 


OPEN “R”.#1, “kütük ismö 32 


2. Rastgele erişimli kütükten okunacak değişkenler için FIELD deyimini 
kullanarak rastgele buffer'daki yerleri belirleyiniz. 


FIELD#1,20 AS AD$.4 BS.8 C$ 


Okumaya açılan REK'in (Rastgele Erişimli Kütük) FIELD deyimi ile 
belirlenen alan boyları yaratılan REK 'in alan boylarına eşit olmalıdır. 


3. GET deyimini kullanarak arzu edilen kayıdın belleğe doğrudan aktarıl- 
ması sağlanır ve verilere ulaşılır. 


GET#I,KOD 


1. Alfasayısal olarak kütüğe yazılan sayısal verileri tekrar sayısal verilere 
çevirmek için, tamsayılarda VI, tek hassasiyetli gerçek sayılarda CVS 
ve çift hassasiyetli sayılarda da CVD fonksiyonlarını kullanınız. 


PRINT CVS(XYS$).CVD(AS) 


Bu rastegele erişim kütüğündeki kayıtlara ulaşmak için aşağıdaki teknik 


uygulanır. 


10 
20 
30 
40 
50 
60 
70 


OPEN "R",#1,"VERIT",58 
FIELD#1,10 AS ADI$,10 AS SOYA$,8 AS TELF$,30 AS ADRES$ 
INPUT "0-100'E KADAR BIR TAMSAYI GIRIN";KOD/ 

IF KODY>100 THEN END 

GET#1 ,KOD/ 

PRINT ADI$,SOYA$,TELF$ , ADRES$ 

GOTO 30 


Burada kullanılan FIELD deyiminin bulunduğu satırın VERIT isimli REK 
yaratmada kullanılan satır ile aynı olduğuna dikkat ediniz. 


Rastgele erişimli kütüklerde veri ilave etme veya yenileme işlemi sıralı 
kütüklere oranla daha kolaydır. Yukarıda verilen bir program ile kayıt nu- 
marası bilinen bir kayıt yeniden girilirse, eski kayıt silinerek yerine yenisi yazılır. 
Kayıt ilave ederken en son kayıt numarasından daha büyük kayıt numaraları 


arayarak kayıtlar ilave edilir. 


Bölüm 6 


VERİMLİ PROGRAM. 
YAZMA TEKNİKLERİ 


6.1 PROGRAMLAMA STİLİ 


Programlama stilini tanımlamak oldukça zordur; fakat her programcının za- 
manla kazandığı bir stili vardır. Programlama stilinin karmaşık doğası, bilgisa- 
yar bilimcilerinin programlamayı bir bilimden ziyade “sanat” olarak tanımla- 
malarına neden olmuştur. Bu kısımda iyi bir programlama stilinin nasıl olması 
gerektiği konusuna değineceğiz. Bir programcı olmaya başladığınızda zamanla 
kendi programlama stilinizi ve kurallarınızı belirlemeye başlarsınız. 


Stil insandan insana göre değişir. Programcılar olarak kullanılan derleyi- 
ciler, işletim sistemleri, donanım yapısı ve programlama ortamlarının farklılık- 
larından dolayı nadiren ortak geçmişi paylaşırız. Bu farklılıklar herkese uyumlu 
ve evrensel bir takım programlama kurallarının belirlenmesini imkansızlaştır- 
maktadır. Dolayısıyla, programlama stiline her bir programın belirli kullanımı 
ve çalıştırıldığı bilgisayar ve özellikleri bakımından fonksiyonel olarak yaklaşı!- 
malıdır. 

Doğru olarak yazılan bir program arzu edilen sonuçları üretir. Açıkça, 
bir “iyi” program aynı zamanda doğru olmalıdır. Genellikle belirli bir prob- 
lemi çözen birçok doğru program yazılabilir; bunlardan bir kısmı diğerlerinden 
daha hızlı, kimisi daha hassas işlem yapan, bazıları daha az bellek ve yedek 
bellek gerektiren ve kimisi de çok güzel bir şekilde yapılandırılmış ve prog- 
rama ilave yapılmak istendiğinde kolaylıkla yapılabilir durumda olabilmekte- 
dir. İdeal bir program, bu bahsedilen özelliklerin hepsini içermelidir. Buna 
rağmen, gerçek dünyaya döndüğümüzde ideal programlara nadiren rastlıyoruz; 
çünkü programı iyi yapan etkenler bir birinden bağımsız değildir. Hesaplama 
hassasiyetinin artırılması genellikle bellek gereksiniminde bir artışa neden ola- 


g1 
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caktır. Bunun gibi bir programlama stratejisi yaparken programlamanın bellek 
gereksinimi gibi bir diğer parametresinin verimliliğini bozmak mümkündür. 

Bu durumda amaç ne olmalıdır? Amaç mümkün olan en iyi programı veri- 
len sürede, mevcut olanakları kullanarak hazırlamak olmalıdır. Program doğru 
olmalı, mümkün mertebe yeterli açıklamalar içermeli, bellek kullanımında tu- 
tumlu, hesaplama verimliliği olan, modüler ve son olarak da derleyiciden ba- 
gımsız (her derleyicide çalıştırılabilen) niteliklere sahip olmalıdır. 


6.1.1 İyi Programlama Stilinin Temel Aksiyonları 


İyi bir programlama stili kazanmak için bazı tutumlar edinmelisiniz. Bunlar: 

İyi bir tasarım ile çalışın: Bir programı dikkatli bir planlama olmak- 
sızın çözümlemeye (hata ayıklama) ve değiştirmeye çalıştığınızda işleminiz 
bir işkenceye dönüşecektir. Bilgisayarın başına geçip program yazma arzusu 
herkeste fazladır; fakat bu arzuyu yenmek gerekir. Program kodlanmadan 
önce mutlaka iyi bir şekilde tasarlanmalıdır. Hata tesbitinin kolay olması için 
organizasyonun mantıklı ve anlamlı olması gerekir. 

Açık olun: Programınızı okuyacak kişi sadece siz olmayacaksınız. Belki 
de aradan geçen bir kaç ay sonra kendi programınıza bir göz attığınızda ne 
yaptığınızı unutmuş olduğunuzu farkedebileceksiniz. Uygun değişken ve alt 
program veya fonksiyon isminin seçimi ve programın içine yeterli açıklamaların 
serpiştirilmesi için çok az bir zaman sarfetmek yeterlidir. Bir programa iyi bir 
dokümantasyon sağlanmadığı sürece program tamamlanmış sayılmaz. 

Değiştir ve yeniden yaz: Bir programı yazdıktan sonra gözden geçiriniz. 
Çalıştırdığınızda doğru sonuç vereceğine inanıyor musunuz? Program anlaşıla- 
bilir midir? Programı daha verimli çalışacak bir hale getirebilir misiniz? Bu 
soruların ışığı altında, eğer programınızın önemli derecede geliştirmeye açık 
olduğuna inanıyorsanız (ki program her zaman daha da geliştirilebilir), bu du- 
rumda gerekli değişikliklerin yapılmasından kaçınılmaması gerekir. 

Gereksiz işlemlerden kaçının: Bir deyim gereksiz hesaplamalar, bir alt 
program gereksiz deyimler, değişkenler ve argümanlar içermemelidir. Fazlalık- 
lar programda karmaşaya neden olur. 

Standardları her zaman tercih edin: Çok sayıdaki programlama de- 
yimlerinden bazıları nadiren kullanılır; bu nedenle, bunlara fazla dikkat et- 
meyiz. Fakat çoğu kez programlama dilinin bu özellikleri en kısa ve en doğru 
sonucu verir. Arzulanan işlevi gören kütüphane fonksiyonları öncelikle tercih 
edilmelidir. 


Özel diyalektlerden kaçının: Çeşitli makinalar için hazırlanan BA- 
SIC derleyici veya tercümanları makina özelliklerine ve donanımına bağlı 
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olabilmektedir. Hazırlanan programın bu özelliklere dayandırılması arzusu 
karşısında, programlama basitliği ve verimliliği temin edilebilir; fakat prog- 
ram başka bir sistemde çalıştırılmaya kalkışıldığında problemlerle karşılaşılır. 
Bu nedenle standard BASIC programlama deyimlerini tercih ediniz. 


6.1.2 Dokümantasyon 


Dokümantasyon bir programa eşlik eden ve programın nasıl çalıştığını açık- 
layan materyali tanımlar. Dokümantasyon, aslında, programın bir kısmı da 
(anlamlı değişken isimleri ve açıklamalar) olabildiği gibi bir kullanım kılavuzu 
şeklinde de olabilir. 

Dokümantasyon miktarı, programın ömrüne, karmaşıklığına ve kullanım 
yaygınlığına bağlı olmalıdır. Her programın kendine has özellikleri olmasına 
rağmen, dokümantasyon ile ilgili bazı genel tavsiyeler aşağıda sıralanmıştır: 


e Daima ihtiyacınız olduğuna inandığınızdan fazla dokümantasyon temin 
ediniz; 


Dokümantasyonu mümkün mertebe program kodu içinde yapınız; 


e Programınızı açık ve anlaşılır kılınız; 


Temiz ve düzenli olunuz. 


Açıklama Satırlarının İlave Edilmesi 


Mevcut en güçlü programlama aletlerinden birisi de açıklama satırının kul- 
lanılabilmesidir. Anlaşılır ve stratejik yerlere yerleştirilen açıklamalar prog- 
ramcının niyeti hakkındaki bütün şüpheleri ortadan kaldırabilir. Dikkatlice 
yazılan açıklamalar programın faydasını ve gerektiğinde üzerinde değişiklik 
yapma olanağını kazandırır. Örneğin, 


30 REM 
40 REM Nin DEĞERINI 3 ARTIR 

50 REM 

60 N-N43 

90 REM 

91 REM MATRISIN MAKSIMUM BOYUTUNU 240'a AYARLA 


92 REM 
95 MAXN-240 


94 
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Birinci açıklama bloğu sadece N'in değerinin 3 artırıldığını belirtiyor; fakat 


ikinci blok matrisin boyutunun maksimum 240 olarak ayarlandığını belirtmek- 


tedir. 


Bu bakımdan ikinci blok daha anlamlı ve açıklayıcı iken, ilk blok sadece 


aritmetik işleminin yazı ile açıklanmasından başka bir işe yaramamaktadır. 


Bir diğer faydalı teknik de bazı önemli işlemlerin yapıldığı modüllerin 
çerçeve içinde verilmesidir. Orneğin, 


110 REM itildi ii. 
120 REM * * 
130 REM * MATRISIN TERSINI HESAPLA * 
140 REM * * 
150 REM KARAR KAŞARA KARAR AA ARAK A KA K 


şeklinde program modülleri veya bloklarının başı ve/veya sonu belirginleştirilir. 


Öte yandan, bir kitabı elinize aldığınızda, bu kitabın adı, yazarı, yazıldığı 


tarıh, 


kullanılan kaynaklar v.s gibi bilgileri içerdiğini görürsünüz. Benzer şe- 


kilde her programın başında bu gibi bilgiler konulmalıdır: 


10 
15 
20 
25 
30 
35 
40 
45 
50 
55 
60 
65 
70 


REM —-——————————————— mmm mmm mmm mmm 
REM PROGRAM -- MAAŞ HESAP 

REM 

REM #* PROGRAMCI - NACI E. ÖZTÜRK (o** 

REV ,|—(—(—(—((( mmmmmmmmmmmmmmm 

REM TARIH - 8 KASIM 1994 

REM 

REM TANIM - BU PROGRAM SAĞLIK KURULUŞLARINDA ÇALIŞAN 
REM PERSONELIN MAAŞ VE TAZMINATLARINI HESAPLAYAN 
REM BIR PROGRAMDIR. 

REM UYARI - MAKSIMUM 1500 KIŞININ MAAŞINI HESAPLAR. 

REM PROGRAMDA SON YAPILAN DEĞIŞIKLIK TARIHI 7/3/95 
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Programda kullanılan değişkenler ve sabitler, yine ana ve alt programların 
başında, aşağıdaki gibi açıklamalar ile tanımlanması, programi inceleyen birisi 
için programı takip edebilme olanağı sağlar. 


200 REM 
210 REM MIN - MINIMUM INDIS DEĞERİ 
220 REM MAX - MAKSIMUM INDIS DEĞERİ 


230 REM (MBOY 


MATRISIN BOYUTU 


240REM A — (MBOY X MBOY) BOYUTLU MATRIS 
250 REM SSAPM - STANDARD SAPMA 

260 REM XORT - X'LERIN ORTALAMASI 

270 REM 


Bazen programlarda, özellikle tamsayılarla hesaplarda, bir eklenmesi veya 
çıkarılması drurumlarında yeni değişkenler tanımlanmaktadır. Mesela, 


11-111 
JK2J-1 
LY>L*3 


Eşitliğin solundaki yeni tamsayı değişkenlerinin isimlerini programcının kolay- 
lıkla kendi hafızasında tutabileceği isimler vermesini sağlamak şöyle mümkün 
olabilmektedir: 


IAizIti 
JE127-1 
LA3-L*3 


Burada Al, I Artı 1, benzer şekilde JEl'de J Eksi 1 anlamında kullanılmıştır. 


6.2 HESAP SÜRESİNİN AZALTILMASI 


Bir programı hazırlarken, hazırlanan programın sadece arzu edilen işi görmesini 
istemek ve beklemek yeterli değildir; programcı programı, işlemleri en hızlı 
şekilde yapacak tarzda yazmalıdır. Hızlandırma sorunu kısa çalışma süresi 
gerektiren ya da çok az aritmetik veya mantıksal işlem gerektiren program- 
larda o kadar önemli değildir; ancak çalıştırıldığında dakikalar veya saatlerce 
süren programlarda çalıştırma süresinden yana tasarruf sağlanması minimum 
sayıda aritmetik ve/veya mantıksal işlem ile mümkündür. Maalesef, bu bazen 
bellek ve depo yeri gereksinimini ve ayrıca hiç şüphesiz programlama çabalarını 
artırır. 
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Günümüzde bilgisayarlar çok hızlı bir şekilde gelişmekte ve her yeni model 
bir öncekinden daha hızlı tasarlanmaktadır. Bilgisayarın fiyatı hızı ile doğru 
orantılı bir şekilde artmaktadır. Herhangi bir program çalıştırıldığı bir bilgisa- 
yarda 20 dakika sürüyorsa, bir başka bilgisayarda 3 dakika çalışabilir; ama daha 
hızlı bilgisayarın fiyatı da daha pahallı olacağından, daima en hızlı bilgisayarı 
satın almak da akılcı bir çözüm değildir. Programı hızlandırmak, hesaplama 
süresini büyük ölçüde azaltmak, bazı programlama teknikleri ile mümkündür. 
Bu kısımda da programlamada zaman tasarrufu sağlayacak ve program yaz- 
mayı kolaylaştıracak bazı tekniklere değineceğiz. 

Bir programın hesaplama süresini azaltmak için harcanması gerekli çabanın 
saptanmasında aşağıdaki faktörler göz önüne alınır: 


e programın kaç kez çalıştırılacağı, 

e hesaplama süresinde sağlanacak tasarruf miktarı, 
e program geliştirmeye ayrılan süre, 

e programın karmaşıklığı, 

e bilgisayar zamanının maliyeti, 

e programcı zamanının maliyeti. 


Sadece bir kez kullanılacak bir programda bu faktörler fazla önemli olmaya- 
bilir; fakat çok sık kullanılan ve uzun süre çalışan programlarda oldukça önem 
kazanırlar. 

Bilgisayarlar çeşitli hızlarda üretildiklerinden, bir sene önce üretilen bir bil- 
gisayar çok çabuk demode olabilmekte ve hız bakımından yeni modellere oranla 
yavaş kalabilmektedir. Dolayısıyla, bir aritmetik işleminin bilgisayarda hesap- 
lanma süresi farklılıklar göstermektedir. Aritmetiksel işlemler mikrosaniye (4s) 
mertebesinde yapılmaktadır. Bu işlemlerin bilgisayarda nisbi olarak yaklaşık 
hesap süreleri aşağıdaki tabloda sunulmaktadır. 


İşlem Gösterim süre (/5) 


Toplama X4-Y 0.4 
Çıkarma X—Y 0.4 
Çarpma X*Y 1 
Bölme X/Y 3 
Üst Alma o XY 12 


Karekök O SOR(X) 23 
X“5 g4 
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Bu rakamlar hesaplanan bilgisayarda çarpma işlemi “bir” olacak şekilde 
normalize edilmiştir. Başka bilgisayarlarda çarpma işlemi 1 gs olmayabilir; 
fakat diğer işlemler ile aradaki oran yaklaşık olarak yukarıdaki tabloda veri- 
len değerler civarındadır. Bu da bize programda sağlanacak zaman tasarrufu 
hakkında oransal bir bilgi verir. 

Çalıştırma sürelerinin detaylı olarak tesbiti için bilgisayar üreticisinin 
kılavuzuna başvurulmalıdır. 


6.2.1 Gereksiz İfadelerin Yokedilmesi 


En sık karşılaşılan hesaplama verimsizliğinin sebeplerinden biri de gereksiz 
ifadelerin hesaplanmasıdır. 
Örneğin, ikinci dereceden denklemin köklerinin hesaplanmasında kökler 
—b 4k VE — dac 
2a 
olarak verildiği herkes tarafından bilinmektedir. İki kök bu formülle ve aşağı- 


Tı,3 — 


daki şekilde hesaplanabilir. 


80 X1-(-B*SOR(B”2-4xAxC))/(2*A) 
90 X2-(-B-SOR(B”2-4xAxC))/(2*A) 


Buradaki deyimler fazla sayıda tekrarlayan (gereksiz) ifadeler içermektedir. 
Mesela, b? — dac ifadesi sadece bir kere hesaplanabilir: 


75 DELT-B”2-4xA4C 
80 X1>(-B*SOR(B”2-4xAxC)) / (2*A) 
90 X9-(-B-SOR(B”2-4xA4C) )/ (2*A) 


Eğer programda DELT değerine herhangi bir nedenle ihtiyaç yoksa karekökünü 
ve payda değeri olan 2*A'yı iki kere hesaplamaktan kurtarabiliriz. Böylece 


70 PAYDAS2*A 

75 SDELT-SGR(B”2-4*A*C) 
80 Xi-(-B*SDELT) /PAYDA 
90 X2-(-B-SDELT) /PAYDA 


halini alır. Daha kurnazca bir yaklaşımla yapılabilecek bir başka işlem de, 
paydayı toplam ve b”'yi de çarpım olarak ifade etmektir. Bu durumda program 


70 PAYDA-ASA 

75 SDELT-SOR(B*B-4*A*C) 
80 X1z(-B*#SDELT) /PAYDA 
90 X2-(-B-SDELT) /PAYDA 
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şeklini alır. Bu son durum başlangıçtaki ifade gurubundan kesinlikle daha ve- 
rimli bir deyim gurubu oluşturmaktadır. Yalnız burada verimliliği artırmamıza 
rağmen algoritmanın açıklığında bir azalmaya neden olduğumuzu gözden kaçır- 
mamak gerekir. 

Bütün bu işlemlerle hesaplama süresi kısaltılmaktadır. Bu kısalma oranına 
ve yapılabilecek başka kısaltma tekniklerine bir göz atalım: 

Bir programda x?, x” gibi kuvvetlerin hesabi gerekiyorsa, bu işlemler aşa- 
gıdaki şekilde yapılabilir. 


(a) (b) 
30 INPUT X 30 INPUT X 
40 X2-X*X 40 X2-X72 
50 X3-X24X 50 X3-X73 
60 X4-X3*X 60 X4-X“4 


Burada (a) ile verilen programda üst alma işlemleri üç çarpma işlemi ile 3 ıs 
yapılmaktayken (b) ile verilen programda 36 (s'de yapılmaktadır. 

Örneğin, y—a4şbe4 cr? 4 dr? 4 er şeklinde verilen bir polinomun 
kodlanmasını ele alalım. Bir çok programcı bunu otomatik olarak 


SAtB*X1C*X“21D04X731E#X74 


şeklinde programlardı. Burada yapılan işlemler 3 üst alma (3x12—36 ys), 4 
çarpma (4x1—4 pis) ve 4 toplama işlemi (4Xx0.4—1.6 us) yapılarak, 41.6 ıs 
sürmektedir. Oysa bunu bilgisayarda 


YSA*X#(BtX#(CtX*(DHE#*X) )) 


şeklinde çarpanlara ayırılmış şekilde de kodlamak mümkündür. Bu şekilde 
yazarak üst alma işleminden de kaçınılmaktadır. o Toplam işlem süresi (4 
çarpma ve 4 toplama işlemi) 5.6 ps olmaktadır. 
Benzer şekilde, aşağıdaki matematiksel formülün programlanmasını ele 
alalım. ” — 
a Vd“— - > 


Bu formülü 
Z-((A*B)/(A72-B72)7.51(A“2-B72)“.5/(At3*B))/((A72-B72)7.54A4B) 


şeklinde programladığımızda 8 toplama ve çıkarma, | çarpma, 6 üst alma, 3 
bölme ve 3 karekök hesabı (üst şeklinde) yapılmaktadır. Işlem süresi 367.2 ps 
bulunur. Oysa 
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220 C-SOR(A*A-B*B) 
225 D-A*B 
230 Z>(D/C*C/ (Ct24B) ) /(C4D) 


şeklinde programlayınca hem hata yapma olasılığı azalmakta hem de işlem 
suresi (37 ps) kısalmaktadır. 

Az sayıda değişken kullanarak, bellekten yana tasarrufta bulunmak için, 
aşağıdaki ifadenin BASIC olarak kodlanmasına şöyle bir örnek de verilebilir. 
abı rP 
ei (1 4r)x—1I 


y— 


40 Y1-14C 

45 YizA*B*X/Y1 
50 Y2-14R 

55 Y2-Y27N-1 
60 Y2-Y2/R 

65 Y-Y14P/Y2 


Bir programda sık sık aşağıdaki örneklere benzer şekilde sabit bir sayıya 
bölüm söz konusu olmaktadır: 


40 X-Z/3 
50 A-C/2 


Bu şekilde programlamaktan kaçınıp bölümleri çarpma işlemine çevirmekte 
yarar vardır; çünkü zamandan yaklaşık X 70 tasarruf sağlanmaktadır. Yani, 
yukarıdaki deyimler 


40 X-0.3333333*7 
50 A-0.5*C 


olarak yazılabilir. Dikkat edilecek olursa 0.3333333 sabitinin sadece 7 basamağı 
girilmiştir. Bunun nedeni de tek hassasiyetle çalışırken, hatırlanacağı üzere, 
bellek depolama kapasitesi yaklaşık 7 basamak olmasıdır. 

Mühendislik hesaplarında sabitler (7 ve e sayısı gibi) sıkça kullanılır. Bun- 
ları, kullanıldıkları programların başında, aşağıdaki şekilde tanımlamak sabitin 
yedi, çift hassasiyetli hesaplarda ise 15-16 basamağa kadar doğru olarak hesap- 
lanmasına sebep olur; ayrıca programda defalarca tanımlamaya gerek yoktur. 


15 PIz4*ATN(1) 
20 E -EXP(1) 


Burada arctan(1)—7x/4 ve e — e! özelliklerinden faydalanılmıştır. 
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6.3 HESAP HASSASİYETİNİN ARTIRIL- 
MASI 


Bilgisayarlar bile hata yaparlar. Bir bilgisayar her ne kadar iki kere ikiyi beş 
olarak ya da toplama yapacağı yerde çarpmayı hesaplamasa da, daha karmaşık 
hatalar yapabilir. Bu hatalardan bilgisayara güvenememe ya da bilgisayarın 
her işlemini elle kontrol etmek gerekir gibi bir anlam çıkarılmamalıdır; sadece 
program yazarken hesaplarda hatalara yol açabilecek durumların farkında ol- 
unmalı ve bu tür hatalara sebebiyet verilmemelidir. 

Sonuçlardaki yalnışlık bilgisayarın sayıları kullanma ve depolama usulün- 
den kaynaklanır. Matematik bilgimiz (1/3)*3 işleminin “1” olması gerektiğini 
söylerken, bilgisayar farklı cevap vermektedir. 1/3 bölümü 0.3333333.... iken 
3'lerin sayısı sonsuz olup, bu değer bilgisayarda doğru bir şekilde depolanama- 
maktadır. Bu değer 3. ile çarpılınca sonuç |'den biraz küçük olur; yani sayısal 
değerler, gerçek değerlerine en yakın değere yuvarlanarak depolanır. Örneğin, 
x, € ve 1/6 — 0.166666.. gibi sayılar sadece 7 basamağa kadar olan kısımları 
hassas olarak depolanır. 


Bazen çok küçük sayılar bellekte, sahip oldukları değerlerin biraz altında, 
depolanırlar; örneğin 0.1 ve 0.02 gibi sayılar 0.0999999 ve 0.019999 olarak 
saklanır. İkilik sayı düzende 0.1'in değeri 0.0001100110011... dir. Bu sayılar ile 
aritmetik işlemlerine çok sayıda tekrarlanması, hesaplanması gereken değerin 
son basamaklarında belirgin sapmalara neden olur. Aradaki fark başlangıçta 
çok az olmasına ve ihmal edilebilir görünmesine rağmen, sapmanın milyonlarca 
işlemde tekrarlanması daha büyük hatalara sebep olacak ve sonucu geçersiz 
kılacaktır. 

Bu tür hataları ve bazı durumlarda bu hatalardan sakınma yollarını açık- 
lamak bakımından | sayısına 100 adet 0.01 ilave etmeyi deneyelim. Bu işlemi 
yapmak için aşağıdaki şekilde bir program hazırlanmış olsun: 


10 A-1 

20 DT-0.01 

30 Ns101 

40 FOR 1-2 TON 

50 ASA tDT 

60 PRINT USING"'A# ###AA#" SA 
70 NEXT I 

80 END 


Bu program, 100Xx0.01--1—2 sonucunu vermesi gerekirken, en son değer mil- 
yonda bir eksik hesaplanmıştır. Bu eksikliğin nasıl oluştuğunu program çıktısı 
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olan ara hesaplar ile birlikte aşağıda verilmektedir: 


1.000000 1.010000 41.020000 1.030000 11.040000 1.050000 
1.060000 1.070000 41.080000 11.090000 1.100000 11.110000 
1.120000 1.130000 1.140000 1.150000 41.160000 41.170000 
1.180000 1.190000 1.200000 1.210000 1.220000 1.230000 
1.240000 1.250000 1.260000 41.270000 1.280000 1.290000 
1.300000 1.310000 41.320000 41.330000 1.340000 1.350000 
1.360000 1.370000 1.380000 41.390000 41.400000 1.410000 
1.420000 1.430000 1.440000 1.450000 1.460000 1.470000 
1.480000 1.490000 1.500000 1.510000 1.520000 1.530000 
1.540000 1.550000 41.560000 1.570000 41.580000 1.589999 
1.599999 41.609999 41.619999 1.629999 1.639999 1.649999 
1.659999 1.669999 1.679999 1.689999 1.699999 41.709999 
1.719999 1.729999 41.739999 1.749999 41.759999 1.769999 
1.779999 1.789999 1.799999 41.809999 41.819999 41.829999 
1.839999 1.849999 1.859999 1.869999 1.879999 1.889999 
1.899999 1.909999 1.919999 1.929999 41.939999 1.949999 
1.959999 1.969999 1.979999 1.989999 41.999999 


(Not:Bu çıktı değerleri aslında alt alta tek sütun halindedir; fazla yer kapla- 
maması için yan yana yazılmıştır). 

Burada görüldüğü gibi, özellikle 1.58'den sonra 1.59 elde edilmesi gerekir- 
ken, 1.589999 hesaplanmıştır. Bu işlemi devam ettirirsek, yani | sayısına 100 
adet değil de, 200, 400, 800, 1000 adet 0.01 ilave edersek, sonuç değer ne 
olur? Bu soruyu cevaplamak için yukarıda verilen programda 101 değerlerini 
değiştirerek bulabiliriz. 


Sonuçlar aşağıdaki tabloda özetlenmektedir: 


Gerçek Değer | Hesaplanan Değer 


2.000000 1.999999 


3.000000 2.99999S 
5.000000 5.000020 
9.000000 9.000112 
11.000000 11.000160 


Görüldüğü üzere mutlak hata, yani hesaplanan değerin gerçek değerden mutlak 
değerce sapma miktarı, artan aritmetik sayısıyla artmaktadır; diğer bir deyişle 
sayının son basamaklarında bozulma, işlem sayısı arttıkça ondalık noktasına 
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doğru ilerlemektedir. İşlem sayısı 1000 iken, mutlak hata yüzbinde 16 dır. Bu 
işlemi milyonlarca kez tekralamış olsaydık ne olurdu? sorusunu cevaplamaya 
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çalışıtığınızda işlem sonucundan artık emin olmayacağınız aşıkardır. 


Bu problemin üstesinden gelmenin bir yolu mevcuttur. 


işlemini ondalıktan kurtardıktan sonra bölme işlemi yapmak suretiyle ile 
Yani 0.01 sayısından kurtulmak için bunu 100 ile çarpmak 
gerekir: bu durumda | sayısı da 100 ile çarpılır ve 100 sayısına ler ilave 
edildikten sonra 100'e bölünürse, arzu edilen sonuç elde edilir. 


başarılabilir. 


Bu da toplama 


Bu mantığa göre hazırlanan program aşağıdaki şekilde hazırlanabilir: 


10 B-100: C-1: A-1 


20 N-101 


30 FOR 1-2 TON 


40 B-BtC 


50 A-0.014B 
60 PRINT USING"AR #AHAR#" SA 


70 NEXT 
80 END 


Programın N—101 için çıktısı aşağıda verilmektedir. Çıktıda hatalar önlen- 
miş olmaktadır. Bu program N'in hangi değeri için olursa olsun, çalıştırdığında 


daima gerçek değeri verecektir. 


.000000 
.060000 
.120000 
.180000 
.240000 
.300000 
.360000 
.420000 
.480000 
.540000 
.600000 
. 660000 
.720000 
.780000 
.840000 
.900000 
. 960000 


Pp HR HR RH EF RH REH RH ER EH RE 


RH RR PER R EH ER EH ERH RH R EH H ERP 


.010000 
.0700900 
.130000 
.190000 
. 250000 
.310000 
.370000 
.430000 
.490000 
.550000 
.610000 
.670000 
.730000 
.790000 
.850000 
.910000 
.970000 


ph HPP PRP ER RR ERER PER EH HEPER 


.020000 
.080000 
.140000 
.200000 
.260000 
.-320000 
.380000 
.440000 
.500000 
.560000 
.620000 
.680000 
.740000 
.800000 
.860000 
.920000 
.980000 


b HH RP PR HR HEH ERE RH RH EH EHE ER PR 


.030000 
.090000 
.150000 
.210000 
.270000 
.330000 
.390000 
.450000 
.510000 
.b70000 
.630000 
.690000 
.750000 
.810000 
.870000 
.930000 
.990000 


NR PR RH HH RP HR HH PR REH HEH 


.040000 
.100000 
.160000 
.220000 
.280000 
.340000 
.400000 
.460000 
.520000 
.580000 
.640000 
.700000 
. 760000 
.820000 
.880000 
.940000 
.000000 


PRP HP HEH HER RH ER HER HEH EH ER 


.050000 
.110000 
.170000 
.230000 
.290000 
.350000 
,410000 
.470000 
.530000 
.590000 
.650000 
.710000 
.770000 
.830000 
.890000 
.950000 
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Bilgisayarın yetenekleri ve karakteristiklerinden bahsederken (Bölüm | 
Kısım 1.2.6) 2'nin kuvvetleri olan sayıların bilgisayarda tam olarak temsil 
edildiğinden bahsetmiştik. Bunlar 2, 4,8,... ve 0.5, 0.25,0.125,... gibi 
tam ve ondalıklı sayıları (ikinin negatif tam kuvvetleri) içermektedir. 

Bu problemlerin üstesinden gelmenin bir başka yolu da programı çift has- 
sasiyetli olarak programlamaktır. Ancak bu sorunu tamamiyle çözmez. Bu 
kısımda bahsedilen hata türlerinin alt ve üst sınırlarını değiştirir. e Diğer 
taraftan aritmetik işlemlerin sebep olduğu yuvarlama hatalarına neredeyse 
kesin çözüm getirmektedir. Bunun nedeni de çift hassasiyetli sayıların 15- 
16 basamağının bellekte korunması ve aritmetiklerin bu basamaklara kadar 
hassas olarak yapılmasından kaynaklanmaktadır. 

Çift hassasiyetli programlama için programda yapılacak değişiklikler çok 
azdır. Tek ve çift hassasiyetli programlama arasındaki farkı görmek açısından 
z sayısının 22/7 ile hesabını ele alalım. Bu işlem için yazabileceğimiz en basit 
program: 


10 PI-22/7 
20 PRINT PI 

309 END 

RUN 
3.142857 


şeklinde yazılabilir. Bu işlemin çıktısında sadece altı basamağı veren ifade 
görülür. 

Çift hassasiyetli sabitler de ise sayının 15 basamağı hafızada saklanır ve 
ekran veya kütüklere bu değerler bastırılırken sadece ilk 16 basamak yazılır. Bu 
sabit veya değişken isimlerini # işareti takip ettiğinde sabit veya değişkene çift 
hassasiyet kazandırılmış olunur. Yukarıda verilen 7 sayısının hesabını çift has- 
sasiyetli bir şekilde yaparsak, bunun için yukarıda verilen biraz değiştirmemiz 
gerekir. Program 


10 PI#-22#/7 

20 PRINT PI# 

30 END 

RUN 
3.142857142857143 


şeklinde hazırlanabilir ve çıktısı otomatik olarak 15 hassas basamak içerir. 

Programda kullanılan kütüphane fonksiyonlarının hesabında Bölüm 2 de 
bahsedilen /d anahtarı kullanımıyla hesaplarını çift hassasiyetli olarak icra 
ederler. 
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6.4 PROGRAMLAMADA BAĞIMSIZLIK, 
GENELLIK VE BUTUNLUK 


Bağımsızlık: Bir programın bağımsızlığı farklı derleyici, işletim sistemi veya 
bilgisayarda ne kadar kolay çalıştırılabildiğinin bir ölçüsüdür. Bir program ne 
kadar bağımsız ise bunu yeni bir ortama aktarmak, bu ortamda (PC, Net Work, 
Çalışma İstasyonu, Main Frame v.b) kullanmak o kadar kolay olur. Geniş bir 
kullanıma yönelik hazırlanan bir program veya alt programda bağımsızlığa 
mutlaka büyük önem verilmesi gerekir. 

Bağımsız bir program hazırlamak için kullanılan derleyici, işletim sistemi 
ve donanım hakkında detaylı bilgi sahibi olmak gerekir; bunlar programcının 
yükünü biraz daha artırır. Bir program, diğer ortamlarda mevcut olmadığın- 
dan dolayı, belirli bir ortamın avantajlarına dayanmamalıdır. 

Bağımsız bir program hazırlamanın en güzel başlama noktası programlama 
standardına uyum sağlamaktır; çünkü derleyici veya tercümanlar hazırlayan 
firmaların bir çoğu bu standardlara uyumlu derleyiciler hazırlarlar. 

Genellik: Bir programın genelliği programın biraz farklı, fakat aşağı yukarı 
aynı işi görmesi için ne kadar kolaylıkla değiştirilebileceğinin bir ölçüsüdür. En 
çok üzerine düşülen nokta, girdi verilerinin nasıl temin edileceğidir. Örneğin, 
bir grafik çizim programı oldukça yüksek derecede genelliğe sahip olmalıdır: 


e Aynı eksen takımı üzerinde birden fazla grafiğin çizilebilmesi; 
e Herhangi sayıda veri girdisini her formatta kabul etmesi; 

e Geniş bir aralıkta her türlü veriyi kabul etmesi; 

e Tam ve gerçek değerleri yorumlayabilmesi; 

e Pozitif veya negatif değerleri de kabul etmesi; 

e Eksenleri ölçeklendirebilmesi (lineer veya logaritmik ölçekte); 
e Seçenek olarak eksenleri ve grafiği etiketlendirebilmesi; 


e Seçenek olarak veriler arasında interpolasyon noktaları oluşturabilmesi 
ve hesabı yapması; 


»e Bir hat yazıcısına, monitöre veya bir çiziciye uyumlu çıktı üretebilmesi 
v.b. 
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Programda yukarıdaki maddelerin herbirinin içerilmesi, belki bazı seçenek- 
lerin asla kullanılmaması olasılığına rağmen, çok yoğun bir programlama gerek- 
tirecektir. Çalıştığı ortam için hangi seçenekleri ilave etmek veya çıkarmak 
programcının sorumluluğudur. Çok detaylı ve genel kapsamlı mükemmel bir 
program yazmak için harcanan zaman gerekli ya da gereksiz midir? Program, 
buna ilave edilen bu seçenekler ile, daha büyük, karmaşık ve yavaş bir prog- 
ram ile sonuçlanıyor mu? Bu gibi sorulara cevap aramak; cevaplar karşısında 
genellik sınırlarını belirlemek gerekir. 

Bütünlük: Bütünlük, bir programın farklı girdi değerlerinde bile doğru 
sonuç verme becerisinin; bir anlamda, bir programın hatalardan ne kadar 
arındırıldığının ve çeşitli durumlar için ne derece test edildiğinin bir ölçüsüdür. 
Örneğin, sayıları büyükten küçüğe doğru dizen bir programda sayıların tümü 
pozitif iken başarılı bir işlem yapar; fakat negatif sayılar söz konusu olduğunda 
dizim işleminde hata verirse, bütünlükten yoksundur. Kullanılan bir indisli 
değişkenin üst sınırını aşıp aşmadığını, bölme işleminde sıfıra bölüm olup ol- 
madığını kontrol etmeyen bir program bütünlüğe sahip değildir. 


6.5 PROGRAMI BASİTLEŞTİRME 


Programı basitleştirme hem programı hızlandırma bakımından hem de prog- 
ram yazım aşamasında daha az hata yapmak bakımından faydalı olabilmekte- 
dir. Daha önce bahsedilen hızlandırma işlemleri de basitleştirmenin bir parçası 
olarak sayılabilir. Buna ilaveten bir programda yapılan işlem gurupları prog- 
ramın çeşitli yerlerinde tekrarlanıyorsa, tekrarlanan işlemleri gerekirse fonk- 
siyon veya. altprogram'lar şeklinde hazırlamak gerekir. Bu şekilde çok sayıda 
tekrarlanan işlemler için fonksiyon ve altprogram hazırlama şeklinde program 
yazma tekniğine modüler programlama denir. Örneğin, bir programda 8 kez 
farklı sayıda veri guruplarının ortalaması hesaplanıyorsa, N adet veri için or- 
talama hesabı yapan bir altprogram bütün veri gurupları için kullanılabilir. 
Programda hata varsa, program daha kısa olacağından hatayı yakalamak daha 
kolay olur. Fakat her veri gurubunun ortalaması programda yeri geldikçe ve 
altprogram kullanmadan yapılıyorsa, bunlardan bir veya birkaçının ortalama 
hesabında hata yapma olasılığı artar. 


Bir matematiksel problemin çözümünde çeşitli metotları kullanırken, önce 
programlaması en basit olan metotlar ile yola çıkınız. Yani interpolasyon 
gerekli ise önce lineer interpolasyon, integral alırken yamuklar kuralını v.b 
programlayınız; çünkü hem formül olarak daha basit hem de programı daha ko- 
laydır. Program tamamlandıktan sonra programınızı çalıştırarak araştırdığınız 
sonuç parametrelerin mantıksal olarak doğru olup olmadığını kontrol ediniz. 
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Eğer, örneğin bir maddenin hesaplanan yoğunluğu veya bir merminin uçuş 
süresi negatif çıkıyorsa programda ciddi bir hata var demektir. Fakat prog- 
ram doğru ve mantıksal sonuçlar veriyorsa programınızı geliştirmeye başlaya- 
bilirsiniz. 

Kaç adet modül (altprogram veya fonksiyon) kullandıysanız, bunları 
teker teker geliştirin ve her değişiklikten sonra programınızı çalıştırıp önceki 
sonuç parametreler ile kıyaslayınız. Bütün modülleri aynı anda değiştirmeye 
kalkarsanız ve program parametreleri mantıksız bir şekilde değişirse, o zaman 
hangi modülde hata yaptığınızı bulmak zorlaşır. 

Bazı kitaplarda belirli işleri yapmak için altprogramlar bulabilir ve bunları 
kullanmak isteyebilirsiniz (örneğin, bu kitapta da integral, türev, v.s işlem- 
lerini yapan altprogramlar verilmiştir). Bu durumlarda kullanmak istediğiniz 
bu programları bir kaç örnek ile test ediniz. Programın çalıştığından emin 
olduktan sonra kendi programınızda kullanabilirsiniz; çünkü kitaplardaki prog- 
ramlar dizilirken dizgiciler hata yapabilirler ve programdaki hatadan habersiz 
olabilirsiniz. 


6.6 BELLEK GEREKSİNİMİ 


Bir program yazarken kullanılan değişken sayısı ve tipi, bellek (hafıza) gerek- 
sinimini belirler. Bilgisayarların anında ulaşabileceği RAM (Random Access 
Memory-Rastgele Erişimli Bellek) sınırlıdır. Şu andaki teknolojik sınır DOS 
işletim sistemi açısından 640 Kb'dır. Sistem programlarının bir kısmı bilgisa- 
yar açılır açılmaz bu belleğe yüklendiklerinden, kullanılabilir bellek alanı 30-40 
Kb kadar azalır. Bir program yazarken kullanılan değişken sayısı ve tipi, artı 
bazı derleyici mesajları ve komutları kullanılabilir ana bellek miktarını aşma- 
malıdır. Aksi takdirde programı bilgisayarınızda çalıştıramazsınız. 

Değişkenlerin tipine göre bellek alanında işgal ettiği yerler bayt (byte) ola- 
rak Tablo 6.1 de verilmektedir. Herbir değişkenin tipiyle değişen bu miktarlar- 
dan dolayı mümkün olduğu sürece bellek gereksinimi az olan değişken tipinin 
kullanımı daha ekonomik olur. 


Bir alfasayısalın depolanması için gerekli bellek, alfasayısal değişkenin 
uzunluğuna üç ilavesiyle bayt olarak elde edilir; yalnız alfasayısal sabitin veya 


Li 


değişkenin başlama ve bitiş yerlerini belirleyen (“ve ” ) işaretleri bu uzunluktan 
sayılmaz. 

Bellek gereksinimi indisli değişkenlerde de indisli değişkenin tipine göre 
hesaplanabilir. Örneğin, DIM A(12) deyimi ile tanımlanan bir indisli değişken, 
tanımdan da anlaşılacağı üzere tek hassasiyetlidir; ve bellek gereksinimi 
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Tablo 6.1: Değişkenlerin tiplerine göre bellek gereksinimi 


Değişken Tipi Bellek Gereksinimi (Bayt) 


Tamsayı 2 
Gerçek sayı (tek hassasiyetli) 4 
Gerçek sayı (çift hassasiyetli) 8 
Alfasayısal Uzunluk--3 


13x452 Bayt'tır. Fakat programda OPTION BASE | deyimini takiben DIM 
A(12) olarak tanımlanınca indisli değişkenler U'den 12'ye kadar 12 adet bellek 
alanı oluşturulur; bu durumda da bellek gereksinimi 12x4—48 Bayt olmak- 
tadır. 

Şimdi şöyle bir durumu inceleyelim. Nüfusu 200,000 olan bir kasabadaki 
insanların isim ve soyadı bilgisayara girilecekse, bunları programa bir kütük 
ile uzunluğu 20 karakter olabilen bir indisli alfasayısal olarak temin et- 
tiğimizi varsayarsak, gerekli yardımcı bellek (disk alanı) gereksinimi 200.000 
x(20--3)—4,600,000 Bayt'tır. Bu miktar yaklaşık olarak 4.387 Mb'a (Mega 
bayt) karşılık gelir. Bu bilgileri indisli değişken ile bilgisayar belleğinde 
muhafaza etmek için, görüldüğü üzere en az 4.4 Mb ana bellek gerekecektir. 
“Bilgisayarda bu programı çalıştırmak mümkün değildir” anlamı çıkmaktadır. 

Bu problemde, ayrıca her bir şahsın cinsiyetinin de indisli alfasayısal olarak 
temin edilmesi arzulanırsa, “ERKEK” veya “KADIN”ın her ikisi 5 karakter 
olduğundan, 200,000 x8—1.600.000 Bayt (1.526 Mb) elde edilir; oysa cinsiyet 
0 ve | şeklinde (0—Erkek, I—Kadın'ı temsil edecek şekilde) bir tamsayı indisli 
değişkeni ile kodlanırsa 200,000 x2—400,000 Bayt (0.381 Mb) elde edilerek, 
bellek alanı olarak X 75 tasarruf sağlanır. 

Programlama tekniği ve bellek gereksinimi açısından, alfasayısal değişken- 
ler yerine, sayısal-hatta mümkünse-tamsayı değişkenler kullanılmalıdır. Ör- 
neğin, yukarıdaki problemde olduğu gibi cinsiyeti bellekte “KADIN” veya 
“ERKEK” gibi alfasayısal olarak saklamak yerine tamsayı değişkenini 0 veya 
I (0—Erkek, I—Kadın) ile temsil edilebilir. Buna benzer şekilde şahisların MD 
değişkeni olan medeni hali “EVLP,”DUL”, ”BEKAR”, “BOSANMIS” değer- 
leri yerine tamsayı olarak tanımlayıp, 0 evli, | dul, 2 bekar ve 3 boşanmış'ı 
temsil edecek şekilde kodlanabilir. Yabancı dil (“FRA”, ING”, “ALM” v.s) 
gibi veriler tamsayılar ile belirtilebilir. 
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6.7 VERİLER VE KÜTÜK KULLANIMI 


Veriler çoğu zaman programların en can alıcı ve kaçınılmaz unsurlarıdır. Aynı 
zamanda program hatalarının büyük bir kısmını da verilerin programa temi- 
ninde ortaya çıkmaktadır. Örneğin 20x20 boyutundaki bir matrisin 400 elema- 
nını bir INPUT deyimi ile programa girmeye kalkarsanız hata yapmak kaçınıl- 
mazdır; ayrıca veriyi programa girme süreniz muazzam bir şekilde fazla olur. 
Fakat programa veri okutma işlemini bir kütük kullanımı ile sağlarsanız, yal- 
nış girilen bazı verileri yakalayıp düzeltmek daha kolay olur (yalnış olmayanları 
yeniden girmek zorunda kalmazsınız). 

Binlerce sayıda veriyi sıralı erişimli kütüklerden okumak, rastgele erişimli 
kütükte saklanan veriyi okumaktan daha fazla zaman gerektirir. Bu nedenle 
gerektiğinde rastgele erişimli kütük oluşturmak çok sayıdaki veriyi okumaktan 
daha hızlıdır. 

Ayrıca zaman zaman binlerce bazen milyonlarca veri içinden sadece bir 
kaçına ulaşmak istenebilir. Örneğin bir kasabada yaşayan bütün insanların 
isim, soyadı, adresi, doğum tarihi ve yaşının bir kütükte tutulduğunu kabul 
edersek, bir şahsa ait bilgilere ulaşmak için bütün bir kütüğü taramak duru- 
munda kalabiliriz. İsmi kütüğün başına yakın bir yerde ise verilere daha kısa 
sürede ulaşmak mümkün olur; fakat sonunda ise daha uzun bir süre gerekir. Bu 
nedenle arama (bulma) işlemleri sıralı kütük kullanımı yerine rastgele-erişimli 
kütükler açılarak başarılmalıdır. Burada arama işlemini yapmak için uygu- 
lanan algoritmanın da arama zamanını kısa tutmak bakımından çok büyük 
önemi vardır. 


6.8 ÇÖZÜMLEME (DEBUGGING) 


Eğer her program yazıldığı ilk durumuyla çalışsaydı, programlama şu an- 
dakinden çok daha kolay bir iş olurdu. Maalesef, profesyonel tecrübeli bir 
programcı bile hata yapar ve program nadiren ilk hazırlanışıyla çalıştırılır. 
Hataları bulma ve düzeltme işlemine çözümleme (debugging) veya hata ayık- 
lama adı verilir. Bazen bir programdaki hataları tesbit etmek için harcanan 
zaman, programı yazmak için harcanan zamandan daha fazla olabilmektedir. 

Programcıların yaptığı hatalar mantık (programlama ve çalıştırma hata- 
ları olarak ayrıca iki kısma toplanabilir) ve sentaks hataları olarak iki gurupta 
toplanır. Sentaks hataları, program deyimleri ve ifadelerinin BASIC kural- 
larına uymadığı durumlarda ortaya çıkar. Bunlar genellikle nokta, virgül, 
parantez eksikliği veya fazlalığı v.s; yani daktilo hataları olarak nitelendirilen 
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hatalar şeklinde ortaya çıkarlar. Mantık hataları ise programdan beklenen 
sonuçların elde edilmemesine neden olur. Bu hatalar program algoritmasını 
hazırlayan kişiden kaynaklanır. Derleyiciler program deyimlerini dikkatlice 
kontrol ederek yapılan sentaks hatalarını programcıya rapor eder. Mantık 
hataları ise, derleyicinin programı yazanın amacını bilmemesinden dolayı, tes- 
biti en zor olan hatalardandır. Bu nedenle, BASIC kurallarını ihlal eden 
bir program başarı ile derlenemeyecektir; fakat, buna karşın, program deyim- 
lerinde sentaks hatası bulunmadığı sürece hatalı mantığı tesbit edemeyecektir. 


6.8.1 Sentaks Hataları 


Bu hata mesajlarından büyük bir kısmı programlama deyimlerinin yalnış ola- 
rak kullanılmasıdır. Bunlar ya programlama deyimlerinin ve kurallarının tam 
olarak bilinmemesinden ya da klavyeden girişte dikkatsizlik sonucunda mey- 
dana gelirler. Bunlardan “Subscript out of range”, “NEXT without FOR”, 
“Missing operand” v.b mesajlar programlama deyimlerinin yalnış veya eksik 
kullanımına örneklerdir. 

Bir başka hata türü de gramer ya da sentaks (syntax) hatası adı verilen 
eksik veya fazladan parantez, fazladan nokta veya virgül kullanımı gibi hata- 
lardır. Bazı derleyiciler bu hataları düzeltebilmekte iken yapılan düzeltme 
programcının arzu ettiği şekilde kullanımına aykırı olabilmektedir. Sentaks 
hatalarına çok sık rastlanabilmesine rağmen bulunup düzeltilmesi en kolay 
olanlardandır. 


Sentaks hataları genellikle programın çalışmasını engeller; yani program- 
daki sentaks hatası düzeltilmeden program çalışmaz. 


Atama deyimlerinde en çok karşılaşılan hata parantezlerin eşleşmesidir. 
Açılan her parantez mutlaka kapatılmalıdır; yani her sol paranteze bir sağ 
parantez karşılık gelmelidir. Kullanılan parantez sayısı az olduğunda bu hatayı 
yakalamak daha kolaydır: 


Yalnış Doğru 
20 X-3.14*(A-B 20 X-3.14*(A-B) 
30 TSA*1.4*R)“N 30 TSA*(1.1R)“N 


ancak çok sayıda parantezlerde hatayı yakalamak biraz daha zorlaşır: 


Hatalı Deyimler 
70 X-A*(B*(C-D)*E 
80 Y-(((X“(A-3*(C/4))4*XK-B) 
90 Z-SOR(1-A/(B-1)*(C*(SIN(B))))) 
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Burada hatayı parantezleri sayarak bulabilirsiniz. Sağ ve sol parantezlerin 
adedi aynı olmalıdır. Derleyici bu tür hataları yakalayacaktır; ancak formülün 
yazımı sırasında parantez sayısı aynı olsa bile yalnış yerleştirilen parantez ile 
yapılan mantık hatasını yakalamak mümkün olmamaktadır. Örneğin, 7 (b— 
a)/ab formülünü X&(B-A) /A*B yazılımı yalnıştır (çünkü x — (a—b)b/a ifadesine 
karşılık gelir); doğrusu Xs (B-A) /(A*B) şeklinde olmalıdır. Bu nedenle sentaks 
hatalarında formül veya sabitlerin doğru olarak girilip girilmediği dikkatlice 
kontrol edilmelidir. 


95 X-12..35 


Yukarıda verilen ifadede nokta (.) fazladan konmuştur. Program çalıştırıl- 
dığında ve bu satıra geldiğinde derleyiciler 'Syntax error in xxx (Burada 
xxx hataya rastlanan satır numarasıdır) mesajı ile karşılaşılır. 


6.8.2 Çalıştırma Hataları (Execution Errors) 


Sentaks hatalarından farklı olarak program çalışırken premature olarak prog- 
ram çalışmasının bir hata mesajı ile durdurulması durumu söz konusu olabilir. 
Bu şekilde programın çalışmasını sona erdirmesine çalıştırma hatası veya €ze- 
cution errors veya run-time errors denir. Bu hata mesajları arasında “Overflow 
..7, “Underflow ...” v.b hata mesajları sayılabilir. Bunlar programdaki veriler 
eksik veya tanımsız ise (özellikle bölme işleminde tanımlanmamış değişkenin 
bellek değeri sıfır olduğunu hatırlayalım), programdaki değişkenler limitlerinin 
dışına taşıyor ise karşımıza çıkarlar. Kimi zaman çıktı verirken kimi zamanda 
hiç çıktı vermez ya da hatalı çıktıya neden olurlar. Bu nedenle verilen hata 
mesajının ne olduğunun tam ve doğru olarak anlaşılması ve düzeltilmesi gerek- 


lidir. 


6.8.3 'TAMSAYI Taşması ((INTEGER Overflow ) 


Tamsayı değerlerinin kullanım aralığının (42"9 — 1) ile sınırlı olmasından daha 
önce bahsedilmişti. Eğer programda kullanılan tamsayı farkında olmadan bu 
değerlerin dışına çıkarsa, sayının taşması (overflow) olarak nitelendirilen bir 
durum ortaya çıkar ve sonuçu yalnış kılar. Programcı, hatanın farkında bile 
olmayabilir. En büyük tehlike büyük sayıların çok sayıda çarpılmasında ve 
tekrarlı toplama /çıkarma işlemlerinde karşımıza çıkar. 


6.8. ÇÖZÜMLEME (DEBUGGING) LL 
ÖRNEK 1: Aşağıdaki işlemi programlayarak sonucunu irdeleyiniz? 


10 Mf>11111 

20 K/334M7 

30 PRINT "M-";M/;" K-";K7/ 
40 END 


K—33333 sayısı tamsayıların üst sınırı olan 32767'den daha büyük ol- 
ması Overflow in 20 (burada 20 taşmanın olduğu satırı vermektedir) hata 
mesajına neden olur. 


6.8.4 REAL Overflow, Underflow, ve Sıfıra Bölme 


Bir matematiksel işlem sonucu müsaade edilen sınırların dışına taşarsa, bu 
sonuç değerini depolamak mümkün olmaz. Eğer sayı çok büyük ise overflow, 
çok küçük ise underflow olarak nitelendirilen bir durum arz eder. 


10 Asi.0Et25 
20 B-2.0E130 
30 C-A*B 


olarak verilen programda C'nin değeri 2.0E--55 olup, müsaade edilen sınırın 
dışına taşmaktadır ve bu durumda işletim sistemi aracılığıyla ekrana bir hata 
mesajı yazılır. 

Bazı durumlarda, işlem sırasının yeri değiştirilerek overflow veya underflow 
durumundan kaçınılabilir. Buna örnek olarak da aşağıdaki programı ele alalım: 


10 A-1.0E-30 
20 B-2.0E-20 
30 C-3.0E130 
40 D-A*B 
50 E-D*C 


Burada AB işleminde her iki sayı müsaade edilen sınırlar içinde olmasına 
rağmen çarpım sınır dışına taştığından underflow hatası ile karşılaşılır. Oysa 
işlemlerin yeri aşağıdaki gibi değiştirilerek program çalıştırılabilir bir hale ge- 
tirilebilir. 


40 D-A*C 
50 E-D*B 
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Çok küçük sayılara bölme işlemi yuvarlama hatalarına veya overflow 
hatasına sebep olabilir. Bu nedenle bölme işlemi yapılmadan önce bölenin 
sıfır veya underflow değerini alıp almadığının test edilmesinde fayda vardır. 

Sıfıra bölmeye örnek olarak aşağıdaki programı inceleyelim. Bu program 
çalıştırıldığında “Division by zero” hata mesajı verir. 


10 DDX/-1 

20 X/-0 

30 X/-X/4DDX/ 

40 Y-1/(X/-10) 

50 IF X/-15 THEN PRINT X/;Y ELSE 30 


Bu hatayı bulmak için 40'tan sonra yeni bir satır ekleyerek program değişken- 
leri olan X& ile Y'nin degişimini incelersek, yani 


10 DDXY21 

20 X/-0 

30 X/-X44DDX/ 

40 Y-1/(X4-10) 

45 PRINT X/,Y 

50 IF X/-15 THEN PRINT X/;Y ELSE 30 


RUN 
1 -.1111111 
2 İğ 
3 -.1428572 
4 -.1666667 
5 “42 
6 SB 
li -.3333334 
8 —.5 
9 me 
Division by zero 
10 1.701412E4138 
11 1 
12 .5 
13 .3333334 
14 .25 
15 52 
iŞ «2 
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şeklinde bir çıktı elde edilir. Bu çıktıdan hatanın olduğu yer X4—10 olduğu 
Y'nin 1.701412E4-38 değerini almasından belli olur. Y—I1/(X“-10) ifadesi ile 
kontrol edildiğinde X4—10 için Y'nin sonsuza gittiği görülür. 

Bu tür testlerden yoksun bir program mantığı mantıksal bir hataya neden 
olur. 


6.8.5 Programlama Hataları 


Yukarıda bahsedilen hatalardan farklı olarak program çalışır ve sonuç ürete- 
bilir; fakat sonuçlar programlanan problemin çözümünden uzak olabilir veya 
en tehlikelisi de çözümün aranan çözüme yakın olmasıdır. Bu durumda prog- 
ramcının veya program sonuçlarını irdeleyen kişinin beklenen sonuç hakkında 
bir fikri olması gerekir veya modellenen fiziksel olaya uygunluğunu araştır- 
malıdır. Örneğin bir yayın uygulanan bir kuvvet ile hareketini veren diferan- 
siyel denklemi verirken yayın sabitleştirildiği konumu 0 (sıfır) kabul edersek, 
yayın hareketi sıfır konumundan uzaklaşacak, biraz sonra sıfıra yaklaşacak 
ve bu hareket yavaş yavaş sönümlenen sinüzoidal bir davranış gösterecektir. 
Çözüm sinüzoidal harekete uymuyorsa (yani fiziksel olarak beklenen duruma 
aykırı ise) programda en az bir hata var demektir. 

Böyle durumlarda programcı her türlü bilgisini kullanarak bu hatayı bul- 
mak zorundadır. Yukarıda bahsettiğimiz gibi, programcının veya algoritma 
hazırlayanın fiziksel problemi anlaması temel kriterdir. 


Programlama Hatalarının Tesbiti 
Bütün bunlara rağmen hatayı bulmak için aşağıdaki denemeler yapılmalıdır: 


1. Program yazmaya başlamadan önce program tasarlamaya daha fazla za- 
man ayırınız. Çoğu programcı bilgisayarın başına geçer geçmez iste- 
nen programı yazabilecekğini zanneder; bu durum basit işlemlerin prog- 
ramlanmasında veya tecrübeli programcılar için geçerli olabilir. Oysa 
program yazmaya başladıktan kısa bir süre sonra herkes sıkıntı çekmeye 
başlar. 


2. Yazım aşamasında programınızı bir dizi blok veya modüllere ayırınız. 
Örneğin, 


» Değişken Tanım Bloğu: Programdaki bütün değişkenler ve anlam- 
ları, ve mümkünse, birimleriyle beraber listesi. 


» Başlangıç Değeri Atama Bloğu: Bu blokta sabitlere değer atama ve 
girdi verileri okunur. 
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e Hesaplama Bloğu: Algoritmanın esasını içeren hesaplama kısmıdır. 

e Başarı Yolu: Programın başarılı bir şekilde sona erdiğinde buraya 
ulaşır ve çıktı değerlerini yazar. 

»e Başarısızlık Yolu: Program çalışma esnasında bir problem ile 
karşılaşıldığında buraya ulaşır ve problemi tanımlayan mesajlar 
ekrana yazılır. 


. Programa girilen verilerin değerlerini girdi işleminden hemen sonra 


ekrana yazdırarak, sayısal değerin doğru girilip girilmediğini kontrol edi- 
niz. 


. Programı yazmaya başlamadan önce bir algoritma oluşturunuz veya akım 


şemasını çiziniz. Program başarı ile çalıştırıldıktan sonra detaylı bir akım 
şeması oluşturunuz. 


. Modüler programlamaya özen gösteriniz; yani programı altprogramlara 


ayırınız. 


. Altprogramları tek tek test ediniz. Yani ikinci dereceden bir denklemin 


köklerini veren veya bir matrisin tersini bulan bir programı, kendiniz 
yazmış olabilir veya bir kitaptan veya bir arkadaşınızdan temin etmiş 
olabilirsiniz, bu durumda altprogramı ana programdan ayırarak bunları 
test ederek, gerekli işlevleri yerine getirip getirmediklerini kontrol ediniz. 
Hata altprogramda ise, gerekli düzeltmeleri yapınız veya hatasız ve aynı 
işlevi gören test edilmiş bir başka altprogram kullanınız. Altprogram- 
ları sadece bir örnek ile değil, ekstrem durumlar arzeden birkaç örnek ile 
test ediniz. Mesela, ikinci dereceden denklemin köklerini veren bir prog- 
ramı, kökler gerçek, eşit ve gerçek ve kompleks olması durumuna karşılık 
gelecek katsayılar girerek kontrol etmek gerekir. 


. Programlanan problemi en basit durum için çalıştırınız ve sonuçları irde- 


leyiniz. Bu işlem programınızın hatasız veya hatalı olduğunu göstermek- 
ten ziyade yapılmış bariz bir hatayı yakalamanıza yardımcı olabilir. 


. Program girdi değerlerini kontrol edebilirsiniz. Bazen bir girdi değerinin 


yalnışlıkla tanımlanmaması bütün programlama dillerinde değişken ger- 
çek sayı ise 0, alfasayısal ise boş karakter anlamında olacağından program 
akışını etkileyebilir. Özetle girdi değerlerinin hepsinin tanımlanmış olup 
olmadığı kontrol edilmelidir. 


. Programda fazladan çıktı deyimleri kullanarak bazı kritik program 


değişkenlerini ekrana veya kütüğe yazdırarak programın çalışması es- 
nasındaki gelişimleri izlenerek, anormal değişimler varsa saptanabilir. 
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Böylece işlem parametrelerin akışı takip edilebilir. Eğer arzu edilen çıktı 
sağlanamaz ise programın daha o satıra gelmeden saptığını ima eder. Bir 
döngü var ise acaba bu döngüyü neden yapmadı? Eğer bir blok işlemi N 
kez yapması gerekiyorsa, neden, mesela 6 kez, yaptı? Sayaç doğru olarak 
çalışıyor mu? gibi soruların ortaya çıkması ve yanıtlanması gerekebilir. 
Çıktı deyimlerinin ve parametrelerinin çok fazla sayıda kullanılması da 
şu bakımdan sakıncalı olabilir: fazla rakam arasında boğularak takibi 
zorlaşabilir. Özetle takip edilen değişkenlerin işlem akışı normal ise, bu 
değişkenlerden vazgeçip bu kez başka değişkenleri takibe almak daha 
doğru olur. 


Tipik Sentaks ve/veya Programlama Hataları 


Hiçbir değerin atanmadığı değişken isminin kullanımı, 
İşlem hiyerarşisine dikkat edilmemesi, 

Tırnak, virgül veya nokta eksikliği veya fazlalığı, 
Etiket veya deyim numarasının unutulması, 
Eşleşmeyen parantez kullanımı, 


Döngü içinde sayaç, indeks ve artırım miktarının değiştirilmeye kalkışıl- 
ması, 


FOR-NEXT döngülerinin yalnış yuvalanması, 
İlk çalıştırılabilir deyimden önce tanımlamaların yapılmaması, 


DIM deyimi ile tanımlanan indisin üst sınırının aşılması. 
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Bölüm 7 


İNDİSLİ DEĞİŞKENLER VE 
DÖNGÜLER 


Bu bölüme kadar verilen BASIC deyimleri birçok problemin çözümü için yeter- 
lidir. Buna rağmen, bazı problem tiplerini BASIC'in bazı özelliklerini tanıt- 
madan kolaylıkla çözmek mümkün değildir. Örneğin, 100 kişiden oluşan bir 
sınıftaki öğrencilerin not ortalamasını ve standart sapmasını bulmak istersek, 
programlanması oldukça zor olan bir problem ile karşı karşıya kalırız. 


Bu problemde öğrencilerin notunu, hem ortalamayı hem de standart sap- 
mayı hesaplarken kullanmak gerekmektedir. Oğrencilerin notlarını programa 


INPUT 01, 02, 03, ..., 0100 


şeklinde okutabiliriz. Bu deyimin ve toplama işlemini belirten ifadeleri yazmak 
sadece uzun bir zaman almaz, aynı zamanda programı çirkinleştirir. Ortala- 
manın cebirsel ifadesinden hareketle, 


1 100 
Ortalama — —X. O; 
m 
ifadesinden, öğrenci notlarını indisli olarak tanımlayabilirsek (0,, O, Oz.... 


Ögg gibi) problem basitleşir. İndisli değişken tanımı DIM deyimi ile gerçek- 
leştirilir. 


7.1 DIM DEYİMİ 


Bir indisli değişkenin maksimum değerini belirleme ve uygun hafıza yeri ayırma 
deyimidir. Kullanımı, 


DIM değişken(indisler)/,değişken (indisler))... 
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şeklindedir. 

Eğer bir indisli değişken DIM deyimi olmaksızın kullanılırsa, indisin ya 
da indislerinin maksimum değeri 10 olarak alınır. Fakat kullanılan indisli 
değişkenin indisi 10'dan veya belirlenen bellek alanı sayısından büyük ise 
”Subscript out of Range” hata mesajı alınır. 


Maksimum olası indis sayısı 255 dir. Bir indisin minimum değeri ise 0 dır. 
İndisli bir değişken boyutlandırılınca CLEAR veya ERASE deyimleri kullanıl- 
madan tekrar boyutlandırılamaz. DIM deyimleri ile boyutlandırılan indisli 
değişkenlerin başlangıç değerleri sıfırdır. 


OPTION BASE Deyimi 


İndisli değişkenler için minimum indis değerini atamada kullanılır. Kullanım 
şekli 
OPTTION BASE n 


olarak verilir. Burada n 0 veya | dir. Otomatik olarak atanan değer 0'dır. 
Eğer OPTION BASE 1 deyimi kullanılırsa, DIM deyimi ile tanımlanan indisli 
değişkenlerin minimum indis değeri 1 olacaktır. 


ERASE Deyimi 


Bir programdaki indisli değişkenleri silmek için kullanılan deyimdir. Kul- 
lanımı, 

ERASE indisli değişkenler 
şeklindedir. İndisli değişkenler silindikten sonra yeniden boyutlandırılabilir ya 
da bunlar için ayrılan bellek alanı başka amaçlar için kullanılabilir. 

Aşağıda verilen örnekte başlangıçta 3x 4 olarak tanımlanan matris (20 
hafızalık yeri mevcut ) daha sonra programda 80.ci satırda silinerek 11 hafızalık 
yer içeren tek indisli A olarak tanımlanmıştır. 


50 DIM A(3,9) 


80 ERASE A 
90 DIM A(10) 
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Örnekler: 

10 DIM A(20) 10 OPTION BASE 1 
20 FOR Izi TO 20 20 DIM X(2,4,7) 
30 READ A(1) 30 DIM B(3,5) 

40 NEXT I 


Yukarıdaki örnekte DIM deyimi ile tanımlanan A değişkeni için 21 adet bellek 
alanı ayrılır. X indisli değişkeninde ise 2 x 4 x 7 ve B değişkeninde ise 3x5 — 15 
bellek alanı ayıracaktır. Çünkü DIM deyimi ile bellek alanları otomatik olarak 
sıfırdan maksimum değere kadar (yani 0.1,....20'e) indisler. OPTION BASE 1 
deyimi ile indisleme işlemi O'dan değil 1'den (1,2...,20'e kadar) itibaren başlar. 


7.1.1 Tip ve DIM Deyiminin Birleştirilmesi 
Tip tanımlama ve DIM deyimi aşağıdaki şekilde birleştirilebilir. 
DIM KAT(18), AD$(45), B#(25), C/4(99) 


Tamsayı veya alfasayısal olan indisli değişkenler benzer şekilde tanımlanabilir. 
Bu tanımlamada KAT gerçek, AD$ alfasayısal, B# çift hassasiyetli gerçek ve 
CZ ise tamsayı indisli değişkenleridir. 


İndisli değişkenlerin indis sınırları değişken olabilir; yani 


10 N-5 
20 DIM A(N) ,B(N*1,24N) 


şeklindeki kullanım geçerlidir; ve ayrılan bellek alanı A için 6, B için 77 dir. 


7.1.2 İndisli Değişkenlerin Bellekte Depolanması 


Program derlendikten sonra, değişkenin tamamı bellekte sıralı olarak saklanır. 
Dolayısıyla, A(4) şeklinde verilen bir indisli değişkenin aldığı değerler bellekte 
sırasıyla &;,a;,a3, a, şeklinde depolanır. İki indisli A(4.4) değişkeninin ilk in- 
disi satır, ikinci indisi sütunu temsil eden bir matris olarak düşünülebilir. 


Ayı G2 dı3 dıa4 
Aaa A32 A33 Az4 
A31ı A32 Ad33 d34 


daı d42 da3 da44 
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Oysa bilgisayar bu değerleri sıralı olarak saklandığından dolayı, bu mat- 
risin değerleri bellekte sırasıyla, Şekil 7.1-b de verildiği gibi, aşı, 421. 431... 
d;2, 432, 433... olarak (yani sütunları arka arkaya ilave ederek-Şekil 7.1-a) 
depolanır. 

Bir indisli değişken A(LI,L2) olarak (buradaki LI ve L2 sabit değerlerdir) 
boyutlandırılmışsa, bunun herhangi bir 2, j elemanın bellek alanındaki adresi 


WsikG-iI)sL 


ile tesbit edilebilir. Örneğin, yukarıda verilen A matrisinin 2,3, elemanı n — 
2-4-(3—1)4 — 10 dur; yani değeri onuncu bellek alanında yer almaktadır. 

Üç indisli değişkenler söz konusu olduğunda, A(2.4,3) gibi, depolama sırası 
düzlemler boyunca olur; her düzlem bir matris gibi düşünülerek bu düzlemdeki 
sıralama matris sıralaması gibi yapılır; sonra diğer düzleme geçilir ve bu işlem 
devam ettirilir (Şekil 7.1-c). Üçüncü indisin maksimum değeri, buradaki A 
değişkeninde 3 tür, düzlem sayısını verir. 

Herhangi bir A(LI, 12, L3) üç indisli değişkenin herhangi bir 7,j,k'ıncı 
elemanının bellek alanındaki adresi 


n—it(—i)-Z1A(k—i)-L1 13 


ifadesiyle bulunabilir. 


İndisli, özellikle çok indisli, değişkenlerde DIM satırında tanımlanan mak- 
sımum boyut aşılmamalıdır. Bunun nedeni çok basittir: “çünkü bellek aşılan 
değerler için bellek alanı ayrılamaz” 


7.2 FOR-NEXT DÖNGÜSÜ 


Yapısal programlamanın esas amacı, programın kolaylıkla kodlanabilen ve 
okunabilen bir yapısının olması ve mantığının kolaylıkla takip edilebilmesidir. 
IF yapısı bu yönde atılan önemli bir aşamadır. Ancak bazı durumlar vardır ki— 
GOTO deyimlerini kullanmak zorunda kalırız. Bu durumlar döngü gerektiren 
yapılardır. Örneğin, 


10 N/-1 

20 TOPL-0.0 

30 TOPL<TOPL*#X(I) 

40 N/2N7/41 

50 IF (NZ<MAXS) THEN GOTO 30 
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ban 


c) 


Şekil 7.1: a) Tek, b) Çift, e) Üç indisli değişkenin bellekte depolanma sırası. 
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Bu döngüler, genellikle, yukarıdaki programdaki gibi N& sayacı ile kontrol 


edilen, belirli sayıda çevirim (MAXS) gerektirir. Bu durumu içeren ve GOTO 
deyimine gerek olmayan yapı FOR-NEXT yapısıdır. 


7.2.1 FOR-NEXT Yapısı 


FOR-NEXT döngüsünün yapısı, girdi deyimi FOR olan ve NEXT ile kapatılan 
blok deyim gurubudur. FOR döngüsünün başlangıç satırının genel kullanımı, 


FOR INDEKS-IMIN TO IMAX STEP 1B 

NEXT INDEKS 
şeklindedir. Burada INDEKS döngüde kullanılan sayaç indisi olup, değeri 
minimum IMIN değerinden başlar ve maksimum IMAX değerine kadar değişir. 


IB ise indisin IMIN ile IMAX arasında kaç birim artılacağını (yani artırım 
miktarı) verir. IB kullanılmadığında artış 1 kabul edilir. 


Döngünün çevirim sayısı, IC—(IMAX-IMIN--IB)/1B ifadesinden hesaplan- 
abilir. Örneğin, 


FOR J-5 TO 17 STEP 2 
NEXT J 
bu döngüde FOR-NEXT içinde yer alan ifadelerdeki J değeri 5'ten başlayarak 


17'ye kadar ?'şer artırılır; yani 5, 7, 9, 11, 13, 15, 17 değerlerini alır. Çevirim 
sayısı ise (17-5--2)/2—7 bulunur. 


FOR J-1 TO 8 
NEXT J 
Örneğinde ise J'nin döngü içindeki değeri birer artırımlarla 1'den Se kadar 


olan değerleri alır ve çevirim sayısı 8 dir. 


FOR-NEXT Döngüsünde uyulması gereken kurallar şöyle sıralanabilir: 


1. Her FOR deyimine bir NEXT eşlik eder. NEXT kullanılan FOR satırının 
INDEKS değeriyle beraber kullanılır. Ancak tek FOR-NEXT döngüsü 
kullanılıyor ise, indisin NEXT ile kullanılmasına gerek yoktur. Ancak 
iç içe çok sayıda döngü söz konusu olduğunda, problemli olabilecek bu 
uygulamadan sakınılmasında yarar vardır. 


be | 
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Örneğin, 
FOR 1-1 TO 99 veya FOR 1-1 To 99 
NEXT I NEXT 


Fakat aşağıdaki örnekte (a) ile verilen FOR-NEXT'ler açıkça yalnış 
yuvalanmıştır. Program derlenmeye çalışıldığında, yuvalamanın yalnış 
olduğu ikaz edilir. Ancak (b) ile verilen kısımda, bilgisayar yuvalamayı 
olması gerektiği şekilde, yani (c) gibi, yorumlayacak ve işlemleri bu şe- 
kilde icra edecektir. 


(a) (b) (c) 
FOR Kzi TO 12 FOR K-1 TO 12 FOR Ki TO 12 
FOR Iz1 TO 20 FOR Izi TO 20 FOR 1-1 TO 20 
NEXT K NEXT NEXT I 
NEXT I NEXT NEXT K 


2. FOR-NEXT deyimlerinin parametreleri döngüsü içinde değiştirilmeme- 


lidir. Bu kural döngü değişkeni, başlangıç, son ve artırım değerlerini 
kapsar. Örneğin aşağıdaki program parçasında döngünün içinde N, IR 
ve NMAX'ın değerlerini değiştirme teşebbüsü bu kuralı ihlal etmektedir. 
FOR N-1 TO NMAX STEP IR 
NMAX-NMAX*3 
IRZIR*t1 
N-N*1 
NEXT N 


Yalnız, GW-BASIC değiştirilmelerine olanak tanır. 


3. Döngü değişkeni (indis) FOR döngüsü içindeki deyimlerde 1. nolu kural 


ihlal edilmeyecek şekilde veya bir sayaç olarak kullanılabilir. Döngüden 
normal çıkışın haricinde bir çıkış durumunda (yani döngüden GOTO 
ile çıkışta). döngü değişkeninin çıkış anındaki değeri döngü dışında da 
geçerlidir. Örneğin 
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(a) (b) 
40 FOR Lz1 TO 23 40 FOR Kz1 TO 99 
<ü 50 IF(K-50) THEN 90 
80 NEXT L 3 
90 PRINTL 80 NEXT K 


90 PRINT K 


programlarında (a) ile verilen programda çıktı L—24 (b) de ise K—50 dir. 


4, FOR döngüsünün içine sadece FOR deyimi ile girilir. Asla GOTO deyimi 
ile döngü içine gönderme (yönlendirme) yapılamaz. Aşağıdaki programı 
bu kuralı ihlal eden bir durumu belirtmektedir. 


240 GOTO 360 
280 FOR M-1 TO 19 
360 T-TAX 
420 NEXT M 
Bir sonlu toplam hesaplanırken (557., X;) indisli değişkenlerden faydala- 
narak ve FOR-NEXT döngüsü kullanarak, basitçe 


30 TOPL-O 

40 FOR Izi TON 

50 TOPL-TOPL#XCI) 
60 NEXT TI 


şeklinde yapılabilir. Diğer taraftan, FOR-NEXT döngüsü yardımıyla, bir in- 
disli değişkene başlangıç değeri atamak da oldukça basittir: 


10 DIM A(75), B(75) 
20 FOR J-1i TO 75 
30 ACD)s1 

40 B(J)-0.5 

50 NEXT 


programıyla A ve B'nin değerleri aş —a; —...—a;ş5—<lveb —b —...— 
bs — 0.5 şeklinde, bir kerede atanmaktadır. 

FOR-NEXT döngüsünün yapısını öğrendikten sonra bu yapının kullanımı 
ile n!, artık çok kolay bir şekilde hesaplanabilir: 
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10 INPUT N 

20 FAKT-İ 

30 FOR I-1 TON 
40 FAKTSFAKT*I 
50 NEXT 


Bu programdaki çarpma işlemi sayısı (çevirim sayısı) artık » değerine bağlıdır; 
kıyaslama ve sayaç gerektirmemektedir. 


Ta İç İçe Döngüler 


Bir FOR-NEXT döngüsü tamamiyle bir başka FOR-NEXT döngüsü içinde yer 
alıyorsa, bu şekilde guruplandırmaya iç içe döngü yuvalama adı verilir. FOR- 
NEXT döngüleri birbirleriyle çakışmadıkları sürece, sınırsız sayıda yuvalama 
yapılabilir. Çok sayıda yuvalama yaparken, yuvalama hatasına neden olma- 
mak, kolay izlenebilirlik ve okuma sağlamak için her FOR-NEXT döngüsü bir 
kaç karakter içeriden başlatılması (Tab işlemi) tavsiye edilmektedir. FOR- 
NEXT döngülerinin doğru kullanımına örnekler: 


FOR I-1 TO 8 FOR I-1 TO 10 
FOR J-0 TO 12 p Js0 TO 5i 
p K-5 TO 9 NEXT J 

NEXT K sh 
sw FOR K-1 TO 21 
NEXT J p 
Süs NEXT K 
NEXT I ak 
NEXT I 


veya 
FOR 1-1 TO 20 
FOR J-1 TO 15 
FOR Ks1 TO 9 


NEXT K,J,I 
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7.3 DÖNGÜ OPTİMİZASYONU 


BASIC'de bir döngü (çevirim) oluşturmanın en kolay yolu FOR-NEXT yapısı 
ile sağlanır. Program çalışma zamanının büyük bir kısmı genellikle döngülerde 
harcanır; bundan dolayı, döngüler optimize edilmelidir. Döngü içinde gereksiz 
hesaplardan kaçınılmalıdır. 


7.3.1 oDöngüden Bağımsız İfadelerin Kaldırılması 


FOR-NEXT döngüsünün içinde döngü değişkeninden farklı değişkenler ile 
işlemleri gerektiren ve döngü değişkeninden bağımsız 1fadeler döngü dışında 
hesaplanmalıdır. Bu teknik ile gereksiz ve tekrarlı hesapların kaçınılmasına 
neden olunur. Örneğin, 


10 DIM B(28) 


70 PI-3.14159 

75 FOR K-1 TO 28 

80 TPL < TPL * SIN(PI/12) * B(K) 
85 NEXT K 


şeklinde verilen programda B(K) ile çarpılan sin( 7/12) terimini 28 kez hesapla- 
maya gerek yoktur. Bu hesaplama pekala aşağıdaki gibi döngü dışında yapıla- 
bilir ve değeri bellekte saklanabilir ve gerektikçe bu değer kullanılır. 


70 PI-3.14159 

75 SINPI > SIN(PI1/12) 

80 FOR Ksi TO 28 

85 TPL - TPL * SINPI * B(K) 
90 NEXT K 


Bir başka örnek olarak da aşağıdaki programı ele alalım: 


10 DIM C(115) 

20 X-2.359 

30 FOR J-1 TO 115 

40 C(1J)31.254#X72x4EXP(-0.5AX*X) 
50 NEXT J 
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Burada eşitliğin sağ tarafındaki ifade olan 1.2522e-95”” terimi döngü dışında 
hesaplanabilir; çünkü bu terim hiç bir şekilde döngü değişkeni olan J'ye bağımlı 
değildir. Bu basitleştirme aşağıdaki şekilde yapılabilir. 


20 X-2.359 

30 7Z-1.254X“2*EXP(-0.5#X#X) 
40 FOR J-1 TO 115 

50 C(J) > 2Z 

60 NEXT J 


İç içe döngülerde döngü değişkeninden bağımsız değişkenli indisli değişken- 
lerde döngü dışında değerlendirilmelidirler. Orneğin, 


30 FOR J-1i TO 45 


50 FOR 1-1 TO 45 


55 C(I)A(I,JI) * B(J) 
60 NEXT I 
90 NEXT J 


programı aşağıdaki şekilde değiştirilmelidir. 
30 FOR J-1 TO 45 


50 GEC - B(J) 
55 FOR Izi TO 45 
60 C(I)-A(I,J) * GEC 


90 NEXT J 
Bu örnekte B(J) değerinin bellekteki yeri her işlemde 45 kez tesbit edildik- 
ten sonra bellekteki değerine erişiliyor. Bu da zaman alıcı bir işlemdir; oysa 
B(J)'nin değeri döngü dışında bulunduktan sonra geçici bir değişkene atanırsa, 
işlem zamanı kısaltılmış olur. 


Eğer FOR-NEXT döngüsünün içinde, döngü değeri değişmeyen bir değiş- 
kenle test yapılıyorsa, bu durumda test döngü dışına alınabilir. Orneğin, 


10 64.5 
20 B-1.2345 
30 FOR Js1 TO 777 
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40 IF (A>3.14) THEN X(J)-C#SIN(B) ELSE X(J)-C*C0S(B) 
45 NEXT J 


programında C ve B'nin değerleri sabittir ve döngüde kullanılan mukayese 
değişkeni olan A'nın değeri, döngü içinde hiçbir surette değişmemektedir. Bu 
durumda test işlemini döngü dışına aşağıdaki gibi taşımak daha uygun olur. 
Böylelikle 777 kez kıyaslamadan kaçınılmış olunur. 


10 C-4.5 

20 B-1.2345 

30 UZC*SIN(B) 

40 V-C*COS(B) 

50 IF (A>3.14) THEN 60 ELSE 80 
60 FOR Ji TO 777 


65 X(I)sU 

70 NEXTİJ 

75 GOTO 95 

80 FOR Jsi TO 777 
85 X(JI)-V 

90 NEXTJ 

99 e 


Bir araya sıkıştırma: Eğer bitişik iki FOR-NEXT döngüsü aynı sınır 
değerlerine sahipse aynı döngü değişkeni altında toplanabilirler. Bu işlem 
sadece programı kısaltmakla kalmaz aynı zamanda programın hesaplama 
süresini de önemli ölçüde azaltır. Aşağıdaki örnekte üç indisli değişkene yapılan 
atamalar veriliyor. 


30 FOR I-1 TO 800 : A(1)-0.125*I : NEXT I 


40 FOR J-1 TO 800 : B(J)-1/(14J) : NEXT J 
50 FOR Ksi TO 800 : C(K)-1 : NEXT K 


Bu program tek bir döngü içinde aşağıdaki şekilde sıkıştırılabilir. 


25 FOR 1-1 TO 800 
30 OOA(1)-0.12541 
35 Oo B(1)-1/(111) 
40 CÇI)si 

45 NEXT I 


7.4 PROBLEMLER 


7.1 Aşağıdaki varsa hataları tesbit ediniz. 
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a) DIM A(9),B(1,250) b) DIM A(5,5,5,5,5,5,5) 
c) M-6 d) DIM 1X4(101) 
N-4 e) DIM Y#(26) 
DIM B(N,M) f) DIM U(4,5,6,7) 
g) DIM Y(1(3)) h) A(3,4,3) ,B(2;5) 
i) DIM NU(0) j) DIM C(-4:5) 
k) DIM A(4,3)(1:3) 1) DIM A(10,B(20)) 


m) DIM C(3,-5),D(4,14) mn) INTEGER D(N,N) 


7.2 Aşağıdaki FOR-NEXT döngülerinde değişkenlerin alacağı değerlerin lis- 
tesini yapın. 


(a) FOR J-1 TO 12 (b) FOR NM-5 TO 27 STEP 3 
(c) FOR Ks1i TO 7 STEP 2 (d) FOR L-3 TO 30 STEP 3 
(e) FOR M-5 TO 128 (£) FOR M3-i TO 78 STEP 8 


(g) FOR IIz1 TO 13 STEP 3 (h) FOR KKKKKK-i TO 14 STEP 2 
7.3 Aşağıdaki döngülerinin kaç kez tekrarlanacağını saptayınız. 


(a) FOR J-6 TO 6 (b) FOR N-5 TO 1 STEP -1 
(c) FORKsiTO07 (d) FOR Msi TO 5 STEP 3 
(e) FOR A-15 TO 1 STEP 2 (f) FOR X-0.1i TO 3 STEP 0.15 


7.4 Çarpım tablosunu oluşturan bir program yazınız. NOT: Çıktının aşağıdaki 
gibi olması isteniyor. 


3 4 5 6 7 8 9 10 
3 4 5 6 Li 8 9 10 
6 8 10 12 14 16 18 20 
g i2 15 18 21 24 27 30 


EN RK # 
EN RP 
O 8WM 


10 10 20 30 40 50 60 70 80 90 100 

7.5 N elemanlı bir A dizisinde negatif ve pozitif eleman sayısı birbirine eşittir 
ve bunlar dizide dağınık bir şekilde bulunmaktadır. Yeni bir B dizisinde pozitif 
sayıları dizinin ilk yarısına, negatif sayıları ikinci yarısına gelişigüzel atayan bir 
program yazınız. 

7.6 Ekrandan temin edilen N sayıyı büyükten küçüğe doğru sıralayan bir prog- 
ram yazınız. 

7.7 Ekrandan temin edilen N sayıyı küçükten büyüğe doğru sıralayan bir prog- 
ram yazınız. 
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7.8 NxN boyutlu bir A matrisinin (a) köşegeninin üstünde (7 < J) (b) köşe- 
geninin altında (7 > J) yer alan elemanlarının (A(1,J)) toplamını veren bir 
program yazınız. 

7.9 Fibonacci sayıları F, — FE, ,-4 F, >5.n > 2 için formülü ile hesaplanıyor. 
İlk iki sayı F, — F> — 1 olduğuna göre, verilen herhangi bir n için ilk p sayıyı 
ve bunların birbirine oranını (F,/F, şı) veren bir program yazmak için bir 
algoritma hazırlayın, akış şeması çizin ve programlayınız. 

7.10 A ve B gibi iki tamsayının (A > B) en büyük ortak bölenini (ebob) bulan 
bir program yazınız. NOT: Bu işlemin yapılabilmesi için Öklit Algoritmasını 
uygulayınız. Öklit algoritmasına göre, en büyük sayı olan A 


A—0,-B*R, 


şeklinde yazılabilir. Burada O, bölüm ve R, ise kalan'dır. Daha sonra benzer 
şekilde 

B—O;-Rı-R,; 

Rı Oz: Rı 4 Ra 


Ri — Ons — R, * 0 
olacaktır. En son Y değeri, en büyük ortak bölendir. 


7.11 Chebyshev polinomlarını n.ci derece ve x için hesaplayacak bir program 
yazınız. Aşağıdaki formülleri kullanınız. 


Ti2) 1 TH) —2 ve Tayıle) —2ef la) Iç ıle), n2l 


7.12 Bir kültürdeki bakteri sayısı başlangıçtaki bakteri sayısının zaman di- 
limi ile doğru orantılı olduğu bilinmektedir. Matematiksel olarak bakterilerin 
üreme sayısı 


a ai” 


at 
iki tepti g 18 


ifadesiyle veriliyor. Burada P”,. t anındaki bakteri sayısı, P, başlangıçtaki bak- 
teri sayısı, # zaman (saat) ve a bakteri tipine bağlı olan (0< a <0.1) bir artış 
faktörüdür. Artış faktörü 0.065 olduğu bilinen bir bakteri cinsinin 1 ile 24 
saat arasındaki çoğalma faktörünü (parantez içindeki miktarı) ilk 11 terim 
kullanarak (4—10) hesaplayan bir program yazınız. 


7.13 TOFAŞ Gurubunun ürettiği arabaların ikinci el piyasası fiyatları, kul- 
lanım yılı, 0 km fiyatı, ve yıllık değer kaybı bilindiği takdirde hesaplanabilmek- 
tedir. Uzmanlar arabaların yıllık değer kayıplarının araba modellerine ve 
yaşlarına göre dağılımını aşağıdaki şekilde vermektedirler: 
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2 Yaş 3 Yaş 4 Yaş veüstü 


Serçe 

Şahin 
Doğan S5 
Doğan SLX 


Kartal 
Kartal SLX 
Tipo 5 
Tempra 5SX 
Tempra SXA 


Bu verilere göre herhangi bir model arabanın 0 km fiyatı ve yaşını okuyup 
ikici el fiyatını hesaplayan bir program yazınız. Örneğin, Serçe'nin 0 km fiyatı 
230 milyon TL olsun. Bir yaşındaki bir Serçe'nin fiyatı 230Xx(1-0.286)—164.22 
milyon TL, İki yaşındakinin 230Xx(1-0.286)Xx(1-0.07)—152.7246 milyon TL, 
Üç yaşındakinin 230Xx (1-0.286) x(1-0.07)x(1-0.075)—141.270255 milyon TL v.s 
şeklinde bulunmaktadır. 

7.14 n.ci dereceden bir polinomun katsayıları a,, 42, 43...., a,,ı olarak ve- 
rilmektedir. Polinomun derecesinin maksimum 100 olabileceğini göz önüne 
alarak, katsayıları KATSAYT isimli bir kütükten okuyan ve polinomu 


Mi) —âı1” 4 azil 4 ME eğ DERT A Ana 
ifadesinden ziyade 
pr) — (Çar 4 a3)2 4 03)7 4: 4 4,1) aç) 4 Arşı 
şeklinde programlayan, polinomun değerlerini (-2.2) aralığında 0.1'lik artırım- 


larla ekrana listeleyen bir program yazınız. 


7.15 Bir fabrikada üretilen bilyalardan rastgele 15 örnek seçilerek bunların 
çapları ölçülmüştür. Bu ölçüm sonuçları (7;'ler :—1(1)15) sırasıyla mm olarak 
123, 12.1, 192 19.3 125 11.9, 120 121,121 122 124 129 idi, IŞİ, 
12.2 kaydedilmiştir. Bir program yazarak geometrik, aritmetik, harmonik or- 
talamayı, standart hata ve sapma ile varyansını hesaplayınız. 

7.16 Bir işletmede üretilen vidalardan rastgele örnekler alınması için iki işçi 
görevlendiriliyor. Bu işçilerden biri 6 diğeri de 9 örnek alarak gerekli çap 
ölçümlerini kalite kontrol mühendisine ulaştırıyor. Bu örneklerin ölçümleri 
(mm cinsinden) 


0.18 5.19 5.14 5.22 5.21 
0.18 5.17 
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olarak tesbit edildiğine göre bu iki gurubun (a) birbirinden bağımsız olarak 
(b) iki gurubun tamamının aritmetik ortalamalarını ve standart sapmalarını 
hesaplayan bir program yazınız. Not: (b) şıkkındaki hesaplamaları yapmak 


için dak — 
— NDI4- MD? — NVar(D1) - MVar(02) 
iğ N4*-M ima NM 


formüllerinden yararlanınız. Burada Z örneklerin tümünün aritmetik ortala- 
ması ve var(Z)'de yine bütün gurubun varyansını vermektedir. 

7.17 Bir dersin öğretmeni dönem içinde yapacağı 3 vize sınavından ilkinin 
ağırlığının & 10, diğerlerinin X 15, ödevlerin & 20, final sınavının da & 40 
olacağını ilan ediyor. Hazırlayacağı bir program ile öğrencilere 100 üzerinden 
verilen notlar ve ağırlıkları kullanarak geçme notunu saptamak istiyor. Bu 
nedenle sizin yazacağınız bir programda en fazla 70 öğrenci için öğrencinin 
numarası NO, adı ve soyadı AS, vize notları VI, V2, V3, ödev 0D ile final 
FIN verilerini sırasıyla okuyacak, geçme notunu hesapladıktan sonra ekrana 
sadece numara, ad-soyad ve geçme notu ile sınıfın not ortalamasını notunu) 
standard sapma ile beraber yazan bir program hazırlayınız. 

7.18 Aşağıdaki veri gurubu için (a) aritmetik (b) harmonik (c) geometrik 
ortalamayı hesaplayınız. 


7.19 Aşağıdaki programların çıktılarını bulunuz. 


(a) Cb) 
10 DIM A(10) ,B(10) 10 DIM A(3,3),D(3,3) 
20 FOR Isi TO 10 20 FOR Isi TO 3 
30 READ A(I) ,B(1) 30 FOR 7-1 TO 3 
40 NEXT I 40 IF 1-7 THEN A(1,J)s1 
50 FOR Isi TO 10 50 READ B 
60 IF B(I)<A(I) THEN 90 60 D(I,J)-B*A(1,1) 
70 D-A(I) 70 NEXT J,I 
80 GOTO 92 80 DATA 1,3,-2,4,2,1 
90 D-B(I) 90 DATA -3,2,1,0,1,8 
gi CzCtD 95 END 
92 PRINT A(I) ,B(1) ,D (c) 
93 NEXT I 10 C-4:K-6 
94 PRINT C 20 B-K*C-7 
95 DATA 3,5,4,6,4,4,6,4,5,3 30 D-K/B 


96 DATA 5,3,5,4,3,5,4,6,4,5,5 Oo 40 IF D>C THEN 60 
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10 
20 
30 
40 
50 
60 
70 
80 
90 


05 
10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 


10 
20 
30 
40 
50 
60 
70 
80 
90 
95 
100 
110 
120 
130 


Cd) 


DATA 3,7,-4,0,13 
INPUT K 
M-2 
READ Y:PRINT Y:MsMti 
IF M<sK THEN 40 
DATA -18,67,6,908,1.35 
END 
DATA 78,-93,62 
DATA 51,5,-19,0,12 
(£) 
OPTION BASE 1 
READ N 
DIM B(N),A(N) 
DATA 6,2,-1,0,4,8,-4 
FOR 1-3 TON 
T-T4B(I) 
A(1-2)>B(1)*2-1 
NEXT I 
FOR 1-1 TON 
PRINT A(I) ,B(1) 
NEXT I 
END 
(h) 
J-0 
DIM T(10) 
READ A,B 
I$Si 
1-143 
DATA 9,5 
T(J-2)-A 
T(J-1)zA-B 
T(J)-T(1)4T(J-1) 
J5J4*1 
IF (J<>10) THEN 90 
FOR Isi TO 10 
PRINT “T(;İ;")en TCI) 
NEXT I 


50 
60 
70 
80 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 


10 
20 
30 
40 
50 
60 
70 
80 


10 
20 
30 
40 
50 
60 
70 


K-K*t2:6-Ct1 

PRINT K;C;B;D 

IF K<40 OR C<18 THEN 20 
END 


(e) 
M-3 
DIM X(M) 
FOR Isi TO 
READ X(1) 
NEXT I 
T-0 
FOR Isi TOM 
T-T 4 XCI)*XCI) 
PRINT 1I,T 
NEXT I 
DATA 2,5,7 
END 


(g) 


N-3: T-O: J-1 
INPUT Ti 
TzT*#Tİ 

IF JsN THEN 70 
J2J4*#1 

GO0TO 30 

PRINT J,T 

END 


Gi) 


N-5: X-0.1: 
FOR I-1 TON 
Yai*tI*I 
PRINT I,Y 
YY*AX 

PRINT Y 
NEXT I 


133 
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140 END 


() 
10 DIM A(8) ,B(8) 
20 FOR 1-2 TO 7 
30 READ A(I) 
40 X--1 : Y-0 
50 NEXT I 
60 A(1)-A(1)4B(2) 
70 FOR 1-1 TO 7 
80 A(I*t1)-A(I)*1I*B(I) 
90 NEXT I 
100 FOR Isi TO 8 
110 PRINT I; A(1); B(1) 
120 NEXT I 
130 DATA 4,3,-1,0,7,1 
140 DATA -2,5,6,-1,2,1 


(1) 
10 READ N 
20 DIM A(N,N) 
30 FOR 1-1 TON 
40 FOR J-1 TON 
50 READ A(I,J) 
60 NEXT J,I 
70 X-0 
80 FOR 1-1 TON 
90 FOR J-1 TON 
100 IF A(I,IJ)<-X GOTO 130 
110 PRINT A(I,1); 
120 X-A(I,J) 
130 NEXT J 
140 PRINT 
150 NEXT I 
160 PRINT I,J,X 
170 DATA 3,2,-4,1,0,-7 
175 DATA 3,7,-25,5,0 


(0) 
10 DIM B(7) 


10 
20 
30 
40 
50 
60 
70 
80 
90 
95 
100 
110 
120 
130 
140 
150 
160 


10 
20 
30 
40 
50 
60 
70 
80 
90 


(k) 

READ N 

DIM A(N,1) 

FOR Isi TON 

READ A(1,1) 

NEXT I 

FOR Izi TO N-1 

FOR J-111 TON 

IF A(I,1)>-A(J,1) THEN 100 


KsA(7,1): A(IJ,1)sA(I,1) 
A(I,i)-K 

NEXT J,I 

FOR 1-1 TON 

PRINT A(1,1); 

NEXT 1 

DATA 11,7,-1,6,0.5,2,1.2 


DATA 45.23,-23,89,0,2 
END 

(m) 
DIM X(10) 
X(0)33 
X(1)36 
FOR Isi TO 5 
X(141)20.54X(1)4X(1-1) 
NEXT I 
FOR 1-0 T0 4 
C-CH(X(141)-X(1))72 
PRINT X(1) 


100 NEXT İ 
110 PRINT:PRINT C 
120 END 


10 
20 
30 
40 
50 
60 


(n) 
DIM S(5,3) 
T1-0 
FOR K-i TO 5 
FOR Ms1 TO 3 
READ S(K,M) 
NEXT M,K 
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20 XsA 

30 FOR I-1 T0 7 

40 READ B(1I) 

50 NEXT I 

60 B(2)-B(1)4X4X 
70 B(3)sX 

80 FOR 1-0 TO 6 

90 B(1*1)-B(1)*41 


100 PRINT "B(";1;")";B(141) 


110 NEXT I 
120 DATA 1,5,-3,4,0,2,-2 
130 END 


70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


FOR 1-1 TO 5 
TSO 

FOR Js1i TO 3 
T-T*S(I,J) 
T1-T14S(1,1) 

NEXT J 

0OL-T/4 

NEXT I 

0L1-T/16 

PRINT OL,OLİ 

DATA 30,55,67,81,72 
DATA 30,10,27,63,8,2 
DATA 97,68,70,74 

END 


7.20 Bir ankete cevap veren kişilere ait bilgiler CEVAP.DAT isimli kütüğe 
aşağıdaki formatta kaydedilmiştir. Bu verileri kullanan ve aşağıdaki şekilde 


iki tablo oluşturan bir program yazınız. 


Sütun Veri 


1-2 Yaşı ?; Cevapsız için 0 

3 Cinsiyeti ?; Kadın—!I, Erkek—2 

4 Ev Sahibi mi ?; Evet—iI, Hayır—2, Cevapsız—0 
5 


-7 Geliri (Milyon TL) ?; Cevapsız—900, Yok—999 


8 Politik çizgisi ?; ANAP—I, DSP—2, DYP—3, 
MAHAPZ-4, RP—5, SHP—6, Cevapsız—0 


—ğ—ş—ş.— e e ee Ev e nn 


30 altı 
30-39 
40-49 
50-59 
60-69 
69 üstü 
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Yaş K E Evet Hayır ANAP DSP DYP SHP MHP Diğer 
30 altı 

30-39 

40-49 

50-59 

60-69 

69 üstü 


Bolüm 8 


FONKSİYON VE 
ALTPROGRAMLAR 


Programlar daha karmaşık ve detaylı hale geldikçe bazı problemler ortaya çık- 
maya başlar: 


e Karmaşık problemleri çözmede kullanılan algoritmaları hazırlamak ve 
tasarlamak daha da zorlaşır; 


e Algoritması bilinse bile, yazılacak programın uzun olmasından dolayı 
BASIC'e kodlayarak dönüştürmek zorlaşır; 


e Programlar uzayıp karmaşıklaştıkça hataları bulmak da zorlaşır (uzun 
ve hacimli programlarda daha çok hatanın olması olağandır; bu nedenle, 
hataları bulmak zorlaşır); 


e Programlar uzadıkça programlar için gerekli dokümantasyon çabaları da 
artar ve karmaşıklaşır. 


Bu problemler, altprogramlar kullanarak azaltılır veya tamamen çözülebi- 
lir. Bir altprogram kendi başına bağımsız bir program olup. ana program 
ve/veya başka bir altprogram tarafından kullanılabilir (çalıştırılabilir veya 
çağırılabilir). Bir altprogram kullanacağı değerleri kendini çağıran ana pro- 
gramdan alır, hesaplar ve sonuçları çağıran programa RETURN deyimiyle geri 
gönderir. BASIC€de kullanılan ABS, SOR, EXP v.b. fonksiyonlar aslında birer 
altprogramıdır. Bu altprogramlar BASIC kütüphanesine yerleştirilmişlerdir. 

Alt programlar fonksiyon ve altprogram (SUBROUTİNE veya SUBPRO- 
GRAM) olarak iki kategoriye ayrılırlar. Benzerlik ve farklılıklara ileride 
değinilecektir. Ancak en önemli farklılık, kısacası, fonksiyonlar çağıran prog- 
rama genellikle tek bir sonuç gönderirken, SUBROUTİINE'nin birden fazla 
sonuç gönderebilmesidir. 
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8.1 FONKSİYON TANIMLAMA 


BASIC'de müsaade edilen fonksiyonlar aritmetik deyim ve kütüphane veya 
arşiv fonksiyonları olmak üzere iki türlüdür. 

Örneğin, ABS, SOR, EXP v.b. kütüphane fonksiyonlarıdır. Program içinde 
aşağıdaki gibi kullanıldıklarında sonuç tek'tir: 


20 Y-SOR(A724B72) 


ifadesinde Y'nin tek değeri vardır. 

Bu örnekte takip edilen işlem, ilk önce SOR altprogramı çağırılır. Daha 
sonra A24B72 değeri hesaplanır ve bu değer altprogramın argümanı ola- 
rak karekök işleminin tarif edildiği SOR fonksiyonuna aktarır. Altprogram 
çalıştırılır-yani karekök işlemi hesaplanır-ve işlem sonucu çağıran programa 
(ana veya alt program olabilir) geri gönderilir. 


8.1.1 DEF FN Deyimi 


Bu deyim kullanıcıya kendi fonksiyonunu tanımlama olanağı verir. Kullanım 
şekli, 

DEF FNisim (argümanlar) — ifade 
şeklindedir. Burada isim, legal bir isim olamalıdır. Yani, herhangi bir BASIC 
deyim ve/veya komutunu içermemelidir. FN'den sonra ve FN'e bitişik olarak 
yazılan bu isim tanımlanan fonksiyonun ismi olacaktır. 

Argümanlar, tanımlanan fonksiyonun değişkenlerinin isimlerini içerir ve 
fonksiyonun kullanımı sırasında bunlara yapılan atama değerlerini kullanarak 
istenen işlemi yapar. Fonksiyon değişkenleri birden fazla olabilir; fakat her bir 
değişken mutlaka birbirinden virgül ile ayrılmalıdır. 

ifade, fonksiyonun işlemini yaptığı matematiksel, mantıksal veya alfasayısal 
operasyonları içerir ve sadece bir satıra sığdırılabilen ifade ile sınırlıdır. 

DEF FN deyiminde kullanılan değişken isimleri sadece fonksiyonun argü- 
manlarını tanımada kullanılır. Fonksiyonu tanımlarken kullanılan bir değişken 
arguman listesinde olmayabilir. Bu durumda bu değişkenin program içindeki 
değeri kullanılır. 

Hazırlanan fonksiyon sayısal veya alfasayısal olabilir. Fonksiyon, program 
içinde birden fazla verde kullanılabilir. Yalnız bu fonksiyon tanımlanmadan 
kullanılmamalıdır. Kullanılmaya kalkılırsa ”Undefined User Function” hata 
mesajı alınır. Örneğin, 
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10 Xs1:Y3 10 DEF FNZ(A,B,C)-(A1B*C)/3 
20 DEF FNU(A,B)-(A-B)/(A4B72) 20 DEF FNXY(X,Y)-(X4Y)/2 

30 T-FNU(1,3) 30 A-10: B-20: C-3 

40 PRINT T 40 PRINT FNFZ(A,B,C) ,FNXY(A,B) 
RUN RUN 

-0.2 11 15 


8.2 ALTPROGRAMLAR 


Diğer bir altprogram tipi olan SUBPROGRAM veya SUBROUTINE'lerin kul- 
lanım amacı açısından farkı bu tip altprogramların birden fazla değer hesapla- 
mak için kullanılabilmesidir. Altprogramlar ana programın END deyiminden 
sonra yerleştirilirler. 


8.2.1 GOSUB-RETURN Deyimleri 


Bir altprograma yön vermek ve geri dönüşü sağlamada kullanılır. Genel kul- 
lanım şekli 


100 GOSUB xxx 


200 RETURN 


olarak verilmektedir. Burada xxx altprogramın ilk satır numarasıdır. 

Bir programdaki altprograma birçok kez erişilebilir ve aynı zamanda alt- 
programa bir başka altprogramdan da erişilebilir. 

RETURN deyimi en son kullanılan GOSUB deyimini takip eden satıra 
gitmesini ve programın işlemine buradan devam etmesini sağlar. 

Altprogramlar program içinde herhangi bir yere yerleştirilebilierler; yalnız 
ana programdan belirgin şekilde farkedilir olmalıdırlar. 

Aşağıdaki örnekte 80-90 satırlar A, B, C'nin ortalamasını hesaplayan ve 
ortalamayı X değişkenine atayan bir alt programı içermektedir. Bu nedenle 
GOSUB 80 ifadesi, altprogramın ilk satırı olan 80.ci satırı belirtmektedir. 
Dikkat edilecek olursa, işlemin yapılabilmesi için her defasında altprogramda 
kullanılan değişkenlere atamalar yapılmıştır. 
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10 A-10: B-20: C-3 
20 GOSUB 80 

30 PRINT X 

40 Azil: B-21: C-4 

50 GOSUB 80 

60 PRINT X 

70 END 

75 REM -- 3 SAYININ ORTALAMASINI 
77 REM -- HESAPLAYAN ALTPROGRAM 
80 X-(A1B*C)/3 

90 RETURN 

RUN 

11 

12 


8.2.2 OON-GOSUB Deyimi 


Bir ifade değerlendirildiğinde, program akışı değerlendirme sonucuna göre be- 
lirlenmiş bir kaç altprogramdan en uygununa yönlendirmeyi sağlar. Genel 
kullanım şekli: 

ON ifade GOSUB satır numaları 
şeklinde verilmektedir. Bu deyimler ON-GOTO deyime benzemektedir; yalnız 
satır numaraları ile altprogramlara yönlendirmeler yapılır. ifade'nin değeri akış 
yönü listesindeki satır numarasını belirler. Örneğin, eğer ifade ile elde edilen 
değer 3 ise, listedeki üçüncü satır numarası akış yönü olacaktır. Eğer ifade 
tamsayı değilse, en yakın tamsayıya yuvarlar. 

ON-GOSUB deyiminde, her bir satır numarası listedeki altprogramın 
başlangıç satır numarasını içermelidir. 

Eğer ifade sıfır veya listedeki satır numara sayısından fazla ise, program bu 
deyimi göz önüne almadan bir sonraki satıra geçerek diğer işlemleri yapacaktır. 

Eğer ifade negatif ya da 255'ten büyük ise “Illegal function call” hata 
mesajı verilir. 


100 ON KODE GOSUB 150, 300, 420 
150 REM -- 1. ALT PROGRAM —- 


290 RETURN 
300 REM -- 2. ALT PROGRAM —- 
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410 RETURN 
420 REM -- 3. ALT PROGRAM -- 
550 RETURN 
Bu örnekte KODE—I ise 150 satırdaki 1. altprograma, KODE—2 ise 300 


satırdaki 2. altprograma, KODE—3 ise 420.nci satırdaki 3. altprograma yön- 
lendirme yapılır. 


8.2.3 RETURN 


Bir altprogramdan ana programa geri dönüşü temin eder. Alt program ile 
beraber kullanılır ve legal bir altprogramın en son deyimi RETURN olmalıdır. 
GOSUB ile beraber kullanılır. 


8.33 ALTPROGRAM UYGULAMALARI 


ÖRNEK 1: İki gerçek X ve Y sayılarının değerlerini kendi aralarında 
değiştiren bir altprogram yazınız. 


100 REM -- ALTPROGRAM DEĞIŞTIR 
110 T2X 

120 XY 

130 YzT 

140 RETURN 


Altprogramda değişen X ve Y değerleri RETURN deyimi ile çağıran programa 
geri gönderilir. Eğer X—5 ve Y——4 ise, bu altprogram ile X——-4 ve Y—5 
değerlerini alırlar. 

ÖRNEK 2: Verilen A, B ve C gibi üç değerin en büyüğünü bulmak ve ayrıca 
bunların toplamını hesaplamak için altprogram yazınız. 


100 REM -- ALTPROĞRAM MAKSIMUM —- 
110 TOPLAM-A*B*tC 

120 ENBYK-A 

130 IF (ENBYK<B) THEN ENBYK-B 

140 IF (ENBYK<C) THEN ENBYK-C 

150 RETURN 
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Bu altprogramda en büyük değeri bulmak için benimsenen algoritma şu şek- 
ildedir: En büyük değerin A olduğu varsayılır; B>ENBYK ise artık en büyük 
deger B(ENBYK—B) dir, değilse C ile kıyaslanır. C>ENBYK ise ENBYK—C 
olur; değilse ENBYK değişkeni eski değerini korur. 


ÖRNEK 3: N kişiden oluşan bir sınıftaki öğrencilerin boyları B; (bı, bz,....b,) 
ile temsil edilsin. Bu sınıftaki öğrencilerin boy ortalamasını (BO) ve boylardaki 
standard sapmayı (5S) hesaplayan bir altprogram yazınız. NOT: Standart 
sapma 


formülü ile verilmektedir. 


200 REM -- BOYLAR ALTPROGRAMI —- 
210 DIM B(N) 

220 B0-0 : SS-0 

230 REM -- ORTALAMA HESAP BLOĞU -- 
240 FOR 1-1 TON 

250 BO-BO*B(I) 

260 NEXT I 

270 BOSBO/N 

280 REM -- S. SAPMA HESAP BLOĞU -- 
290 FOR 1-1 TON 

300 SS-SS*(B(I)-BO0) “2 

310 NEXT I 

320 SS-SOR(SS/ (N-1)) 

330 RETURN 


Programı FOR-NEXT kullanımı ile formüllerin kodlanmasından ibarettir. 


ÖRNEK 4: Mevcudu 50 olan bir sınıftaki öğrencilerin 1. ve 2. vize (VI 
ve V2), ödev (OD) ve final (FIN) sınavları NOTLAR.DAT isimli bir kütükte 
kayıtlı bulunmaktadır. Bu notları okuyacak ve her sınav ve ödev için sınıfın 
ortalamasını ve standard sapmasını hesaplayacak bir program yazınız. 


Örnek 3'de hazırlanan BOYLAR Subroutine'i bu iş için pekala kullanılabi- 
lir. Bu durumda, program aşağıdaki şekilde yazılabilir. 


8.3. ALTPROGRAM UYGULAMALARI 143 


5 DIM V1(50), V2(50), OD(50), FIN(50), B(50) 
10 OPEN “I",#1,"NOTLAR.DAT" 
15 INPUT#1,N 
20 FOR Isi TON 
25 INPUT#1, V1(1I),V2(1) ,0D(1I) ,FINC(I) 
30 NEXT I 
35 FOR Izi TO N: B(I)-Vi(1I): NEXT 
40 GOSUB 200 
45 CH$-"i.VIZE" 
50 GOSUB 350 
55 FOR Izi TO N: B(1)-V2(1): NEXT 
60 GOSUB 200 
65 CH$-"2.VIZE" 
70 GOSUB 350 
75 FOR 1-1 TO N: B(I)-0D(1): NEXT 
80 GOSUB 200 
85 CH$-"ÖDEV" 
90 GOSUB 350 
100 FOR Isi TO N: B(I)-FIN(I): NEXT 
105 GOSUB 200 
110 CH$-"FINAL" 
115 GOSUB 350 
120 END 
200 REM -- BURAYA BOYLAR ALT PROGRAMI GIRECEK 
201 REM -- 210. SATIRI ILAVE ETMEYİN !'!! 


330 RETURN 

350 REM -- EKRANA YAZDIR --- 
360 PRINT CH$;" IÇIN " 

370 PRINT "ORTALAMA—";B0 

380 PRINT "S. SAPMA-";SS 
390 RETURN 


Bu program ile 4 kez hesaplanması gereken ortalama ve standard sapma bir alt 
program kullanılarak hesaplanmıştır. Benzer şekilde bilgileri ekrana yazdırmak 
için bir altprogram da (350-390) ilave edilmiştir. 


ÖRNEK 5: C(n,r) kombinezonunu herhangi bir n ve r için hesaplayan bir 
program yazınız. 
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Bu bölümde, daha önceki kısımlarda, tanımlanan IFACT harici fonksiyo- 


nunun kullanımıyla ana program oldukça basitleşir. 


10 
20 
30 
35 
40 
45 
50 
55 
60 
65 
70 
80 
100 
110 
120 
130 
140 
150 
160 
170 


INPUT "N ve R yi Giriniz ";N,R 
MEN 
GOSUB 100 
PAYSF 
MR 
GOSUB 100 
FR2F 
M-N-R 
GOSUB 100 
C-PAY/ (F#FR) 
PRİNT over MR jet G 
END 
REM -- FAKTORIYEL HESAP 
REM -- M! HESABI-- 
Fz1 
IF (M-0) THEN RETURN 
FOR Izi TOM 
F2F*I 
NEXT I 
RETURN 


Burada IFACT(N)—n!, IFACT(R)—r! ve IFACT(N-R)—(n — r)Ve karşılık 
gelmektedir. Harici fonksiyonlar, aynı SIN, COS, EXP kütüphane fonksiyon- 
ları gibi çeşitli aritmetik işlemlere tabi tutulabilmektedirler. 


8.4 


PROBLEMLER 


8.1 Aşağıdaki aritmetik fonksiyon tanımlarında varsa hataları tesbit ediniz. 


(a) 
(b) 
(c) 
(d) 
(e) 
(£) 
(g) 


DEF FNBIS(N,X)-N*X 

DEF MATRK(A,B)-A”B 

DEF FM(A,C,Y)-(A*C)/(C-Y) 

DEF FNİ(Y)2Y73-34Y42 
DEFFNF (X) >X*X-X*1 

DEFINE FUNCTION(K) -SIN(K) #COS(K) “2 
DEF FN B(M,A,X)-M*(A-X)72 


8.2 Aşağıdaki işlemleri yapan altprogramları yazınız. 
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a) ali) —e “ *- log>(sin(72)) 
b) b) 5 e erlos>(1t7?) 


8.3 Uzunluğu M olan bir A indisli değişkeninin ortalamasını hesaplayan bir 
altprogramı hazırlayınız. 

8.4 Herhangi bir f(x) fonksiyonunun Ja, 6) aralığında ile değişimini Az — 
(6— a)/M (M bir tamsayıdır) artırımları kullanarak tablo haline getiren bir 
program yazınız. 

8.5 Bir gerçek & (x > 0) sayısının herhangi bir y tamsayı tabanına göre loga- 
ritmasını (/og,z)hesaplayan bir harici fonksiyon (FNLOGY(X.Y) isimli) hazır- 
layınız. 


8.6 Literatürde Hata fonksiyonu (Error Function) olarak bilinen erf(x) fonk- 


erf(x -Z —) edu 


olarak tanımlanıyor. Fakat bu integralin hesabı yerine, aşağıda verilen for- 
mülün programlanarak, herhangi bir x değeri için hata fonksiyonunu hesa- 


siyonu 


planmak istenmektedir: 


erf(2) —1—(aşt-4azt? aşti saşt* sag )e” 


p <0.3275911, a, — 0.2548296, a; — —0.284497 


a3 — 1421414 a,——1.453152, as — 1.061405 
Hata fonksiyonunu bu bilgiler ışığı altında hesaplayan bir altprogram yazınız 
ve bu fonksiyonu test ediniz. Testte kullanmanız için sağlanan bazı veriler; 
erf(1)—0.84270, erf(1.25)—0.9229, erf(2)—0.99532 olarak veriliyor. 
8.7 Bir f(x) fonksiyonunun herhangi bir » — a noktasındaki birinci dereceden 


türevi ! h 
f'la) — Ha- e ibi ) 
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olarak veriliyor. Argümanları a ve / olan ve birinci dereceden türevi hesapla- 
yan bir altprogram yazınız. 


8.8 Boyutu n olan x ve y indisli değişkenleri için, aşağıdaki ifade hesaplanmak 


VTıyı *12y341 ***İ Tnyn 


2 keği e tlyi iyi te ty 


isteniyor. 


İfadeyi bir bilgisayar programı vasıtasıyla hesaplamak için ajb, 4 ab; $:-. 
&y,b, işlemini yapan bir altprogram yazınız ve programınızda bundan fay- 
dalanınız. 

8.9 Bir tamsayı indisli değişkeni olan KOD(1,J) ekrana matris şeklinde yazdır- 
mak için bir alt program yazınız. 

8.10 X(N,N,.N) indisli değişkeninin elemanlarından mutlak değerce en büyü- 
günü veren bir alt program yazınız ve test ediniz. 

8.11 Tanımlayacağınız R— Va? 4 b? 4 & fonksiyonu sayesinde 


I rm 1 
A— —— —— — B—ı/x* 4 zi, (— ——————— 
Vr24y7472 di V472 4 9y? 4 1622 


ifadelerini hesaplayan bir program yazınız. 


8.12 Aşağıdaki programların çıktılarını bulunuz. 


(a) (b) 
10 DEF FNA(X)-X4*X-1 10 DATA 1.E-4,2,3 
20 DEF FNB(U) -U*U-3*U*2 20 READ H,A,B 
30 DX-0.5 30 DEF FNF(X,Y)-SIN(X*Y) 
40 X-DX:N2N*1 40 H2-24H: AA-AtH: AB-A-H 
50 PRINT X;FNA(X) ;ENB(X) 50 FX-(FNF(AA,B)-FNF(AB,B) ) /H2 
60 IF (N<11) THEN 40 60 FY-FNF(A,BtH)-FNF(A,B-H) /H2 
70 END 70 FFSA*FX*B*#FY 


80 PRINT A,B 
90 PRINT FX,FY,FF 


100 END 
(c) (d) 
10 DEF FNA(Z)-272434712 10 DEF FNPİ(T,A)-172-A72 
20 DEF FNB(Z)-7Z43 20 DEF FNP2(T,A4)-T724A72 
30 DEF FNC(X,Y)-(X4*Y)/(2*X-Y) Oo 30 T>1:1-1:A-2 
40 X--1 : Ys0 40 IF T>-A THEN 50 ELSE 90 
50 IF FNA(X)<FNB(Y) THEN 90 50 Y-FNP1(T,A) 


60 XOSFNB(X) :YOZFNA(X011) 60 T-T*2 
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70 
80 
90 
95 
100 
110 
120 
130 


PRINT XO;YO;FNC(X0,Y0) 
GOTO 100 

XOZFNA(X*1) :YOZFNB(X0*1) 
PRINT XO;YO;FNC(X0,YO) 
X-X41 

Y-YI2 

IF ((X4*Y)<9) THEN 50 
END 


70 PRINT “Ta“;T,0 Yat;y 
80 GOTO 120 

90 Y-FNP2(T,A) 

100 TsT#1:A-A-1 

110 PRINT "T2“;T," Ys".y 
120 IF 1-3 THEN 150 

130 1:11 

140 GOTO 40 

150 END 
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Bolüm 9 


ALFASAYISALLARIN 
UYGULAMALARI 


Alfasayısallardan genellikle kelime-işlemci ve grafik programlarında olarak fay- 
dalanılır. Bunun yanısıra sayısal çıktıların düzenlenmesinde de geniş çapta 
yararlanılır. Hatırlanacağı üzere, alfasayısal değişkenler isimlerini takiben $ 
işaretiyle belirlenirler: 


DIM A$(5), GAZ$(4), SEMBOL$(3), NO$(2) 
AS$-"MEHMET TURK" 
TEL$-'0(222) 234 5678" 


Bu değişkenlere daha sonra alfasayısal değerler atanabilir. Bu değişkenler- 
den NOS, GAZ$ ve SEMBOLŞS indisli değişkenler olarak kullanılmışlardır. 
Örneğin, bu değişkenlerin bazılarına yapılan atamalar ile bellekteki yerleşimi 
aşağıda verilmektedir: 


Atanan Değer Bellekteki Yerleşimi 
NO$(1)—”2601A” 
NOS(2)—”2601B” 
GAZS(0)—”ETAN” 
GAZ$(1)—” AZOT” 
GAZS(4)—”HE” 
SEMBOL$(1)—“*” 
SEMBOL$(3)—” 


Atanan karakter değerler sırasıyla, alfasayısalın uzunluğuna göre, soldan sağa 
doğru bellekteki adreslerine yerleştirilirler. 
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Alfasayısallarla kıyaslama yapma işlemi normal sayısallara uygulanan 
tekniklere benzemektedir: örneğin, 100 kişilik bir gurubun içinde ismi AHMET 
ve soyadı TURK olan birisinin tesbitini veren bir program örneği verilmektedir. 


10 DIM AD$(100), SOYAD$(100) 

20 OPEN "0",#1,"ISIMLER" 

30 FOR Izi TO 100: INPUT#1 AD(I): NEXT 

40 FOR I-1 TO 100: INPUT#1 SOYAD(I): NEXT 

50 FOR Izi TO 100 

60 IF (AD(I)-"AHMET") AND (SOYAD(1)-"TURK") THEN 95 
70 NEXT İİ 

80 PRINT "KAYITLARDA AHMET TURK MEVCUTTUR DEĞILDIR" 
90 STOP 

95 PRINT "KAYITLARDA AHMET TURK MEVCUTTUR." 

99 END 


Bu programda 100 kişinin ad ve soyadı indisli değişkenlerde depolanmıştır; 
bunlardan ismi AHMET ve soyadı TURK olan kayıdın mevcudiyeti yukarıdaki 
şekilde araştırtırılabilir. 

Sembollerin “A”, ”B”.....”Z” ikilik düzendeki kodları, o şekilde ayarlan- 
mıştır ki bunların değerleri sembol sırasını takip eder; yani “A” nın değeri ”B” 
nin değerinden ve ”€” nin değeri ”B” nin değerinden v.s daha büyüktür. Bu 
ikilik kodlama sistemine ASCII kodu denir. Küçük harflerin (7a”, "b”.....”z”) 
kodları büyük harflerden büyüktür. Bu nedenle karakter değişkenlerin değer- 
leri IF ile kıyaslanabilir. Örnekler, 


KIYASLAMA ALDIĞI DEĞER 
(tav<upu) -1 
AA" <A) o 
(“ABC"<"ABE") “1 
(tarza) 0 
(guz) 0 


Yukarıdaki örneklerden ikincisinde “A” nın bellek değeri “A ”, yani A artı 
boşluk olarak kabul edilir ve boşluğun ikilik kodu A'dan daha küçük olduğun- 
dan önerme yalnıştır. Üçüncü önermede ilk iki karakter aynı olmasına rağmen 
üçüncü karakterlerdeki farklılık kıyaslamaya esas teşkil etmektedir. 

İki alfasayısal birbiriyle toplama işlemi ile birleştirilir; örneğin “AHMET” 
ve "MEHMET” alfasayısalları 
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10 A$-"AHMET" 
20 B$-"MEHMET" 
30 C$-A$*B$ 
40 PRINT C$ 
RUN 
AHMETMEHMET 


şeklinde birleştirilir. 


9.1 KÜTÜPHANE FONKSİYONLARI 


ACS Fonksiyonu 


Bir alfasayısalın ilk karakterinin sayısal değerini (ASCTI kodunu) getiren bir 
fonksiyondur. Kullanım şekli 

ASC(A$) 
olarak verilmektedir. Eğer A$ büyük harf ile başlıyorsa, fonksiyonun alacağı 
değerler 65 ile 90 arasında olacaktır. Eğer A$ küçük harf ile başlıyorsa, bu du- 
rumda da fonksiyon 97-122 arasında değerler alır. Öte yandan 0 ile 9 arasındaki 
rakamlar için bu aralık 48 ile 57 dir. Örneğin, 


10 A$—"CEMALETTIN" 
20 PRINT ASC(A$) 
RUN 

67 


bulunur (İlk üç harf için ASCTI kodlar: A—65, B—66, C—6T). 


CHR$ Fonksiyonu 


ASCTI kodunu eşdeğer karaktere çeviren bir fonksiyondur. Kullanım şekli 
CHR$(n) 
şeklinde verilmektedir. Burada n, 0 ila 255 arasında değişen bir değerdir. 


Örnek: 


10 PRINT CHR$(65); CHR$(66); CHR$(67) 
20 PRINT CHR$(97); CHR$(98); CHR$(99) 
30 PRINT CHR$(48); CHR$(49); CHR$(50) 
RUN 
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ABC 
abc 
012 


CVI, CVS, CVD Fonksiyonları 


Herhangi bir alfasayısalı sayısal değere dönüştürmede kullanılır. Kullanım şekli 
CVI 2-baytlık alfasayısal) 
CVS( /-baytlık alfasayısal) 
CVDK(8-baytlık alfasayısal) 
şeklinde verilmektedir. 2-bayt alfasayısal bir tamsayıya, 4-bayt alfasayısal tek 
hassasiyetli bir gerçek sayıya ve 8-bayt alfasayısal da çift hassasiyetli bir gerçek 
sayıya dönüştürülür. 


DATE$ Deyim ve Değişkeni 


Tarihin öğrenilmesi veya ayarlanmasında kullanılır. Genel kullanım şekilleri; 
deyim olarak 
DATE$S—d$ 
değişken olarak 
d$—DATES 
olarak verilmektedir. Burada d$ aşağıdaki formatta herhangi bir alfasayısaldır: 
mm-dd-yy mm/dd/yy mm-dd-yyyy mm/dd/yyyy 
Örnek; 


D$-DATE$ 
Ok 

PRINT D$ 
01-27-1995 


LEFT$ Fonksiyonu 


Bir A$ alfasayısalının solundan itibaren n karakterini getiren bir fonksiyondur. 
Kullanım şekli 

LEFTS$—(A$,n) 
olarak verilmektedir. Burada n, 0 ila 255 arasında olmalıdır. Eğer n al- 
fasayısalın toplam uzunluğundan; yani LENS$'den, daha büyükse, AS al- 
fasayısalının kendisi geri getirilir. 
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10 SEHIR$-"ISTANBUL" 
20 ULKE$-"TÜRKIYE" 

30 A$-LEFT$ (SEHIR$ ,5) 
40 B$-LEFT$(ULKE$ ,12) 
50 PRINT A$;B$ 

RUN 

ISTANTÜRKIYE 


MID$ Fonksiyonu ve Deyimi 


Bir alfasayısalın bir bölümünü kullanmaya yarar; deyim olarak kullanıldığında 
ise alfasayısalın bir başka parçasıyla değiştirir. Kullanım şekli 

MID$(a$, n/.m)) 
olarak verilmektedir. Burada n ve m. O ila 255 arasında olmalıdır. Fonksiyon 


olarak kullanımı 


10 A$-"BUGÜN" 

20 B$-"HAVA ÇOK GÜZEL" 

30 PRINT A$, MID$(B$,6,3) 
RUN 

BUGÜN ÇOK 


deyim olarak 

MID$(a$, n/(.ml) b$ 
kullanılır. a$'nin karakterleri n ci konumdan itibaren b$ ile yer değiştirir. m, 
b$'nin kaç karakterinin a$ ile yer değiştirmesi gerektiğini gösterir. m kullanıl- 
mazsa b$ nin tamamı a$ da belirtilen konumdan itibaren yer değiştirir. 


10 A$-"BUGÜN Ni 

20 B$-"HAVA ÇOK GÜZEL" 

30 MID$(A$,3)-" AKŞAM" 

40 PRINT A$; B$ 

RUN 

BUGÜN AKŞAM (HAVA ÇOK GÜZEL" 


RIGHT$ Fonksiyonu 


Bir A$ alfasayısalının sağından itibaren n karakterini getiren bir fonksiyondur. 


Kullanım şekli 


RIGHTS—(AS,n) 
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olarak verilmektedir. Burada n >LEN(A$) olduğunda RIGHTS$ fonksiyonu 
A$'yı geri getirir. 


10 SEHIR$-"ISTANBUL" 
20 ULKE$-"TÜRKIYE" 

30 A$-RIGHT$(SEHIR$ ,5) 
40 B$-RIGHT$(ULKE$ ,12) 
50 PRINT A$;B$ 

RUN 

ANBULTÜRKIYE 


SPACES Fonksiyonu 


n adet boşluktan oluşan bir alfasayısal verir. Kullanım şekli 
SPACE$(nr) 


olarak verilmektedir. Buradaki n değeri 0 ile 255 arasında olmalıdır. 


10 FOR Izi T0 5 
20 E$-SPACE$(1) 
30 PRINT E$;I 
40 NEXT I 

RUN 


SPC Fonksiyonu 


Bir PRINT deyiminde n adet boşluk konmasını sağlar. Kullanım şekli 
SPC$(n) 
olarak verilmektedir. Sadece PRINT, LPRINT ve PRINT# deyimleriyle be- 


raber kullanılabilir. 


10 A$-"ALI" 

20 B$-"AHMET" 

30 PRINT A$;SPC(4) ;B$ 
RUN 

ALI AHMET 


Ür 


9.2. SIRALAMA ALGORİTMALARI 15 


STR$ Fonksiyonu 


Bir x değişkeninin alfasayısal olarak tanımını verir. Kullanım şekli 
STRS$(x) 


olarak verilmektedir. Burada x bir sayısal ifadedir. 


10 A-12.34 
20 B$-STR$(A) 
30 PRINT B$;LEN(B$) 
RUN 

12.34 6 


12.34 sayısı alfasayısal sabit olarak, ekranda gözükmeyen - işareti ile beraber, 
6 karakterdir. 


VAL Fonksiyonu 


Herhangi bir a$ alfasayısalın sayısalında sayısal olmayan ilk karaktere kadar 
olan kısmı sayısal değer olarak ayırır. Kullanım şekli 

VAL(a$) 
olarak verilmektedir. Buradaki a$ alfasayısalındaki boşluklar göz önüne alın- 
maz. VAL fonksiyonunun kullanılabilmesi için alfasayısalın ilk karakterinin 
sayısal olması gerekir. 


10 A-VAL(" 12.456") 
20 B-VAL("-1234567") 
30 CEVAL(1995/8") 
40 D-VAL("185 CM") 
50 PRINT A;B;C;D 
RUN 
12.456 -1234567 1995 185 


Bu örneklerden “1995/8” ve ”185 CM” alfasayısallarında sayısal olmayan / ve 
CM değerlerine kadar olan sayısal kısımlar dönüştürülmektedir. 


9.2 SIRALAMA ALGORİTMALARI 


Bir programcının karşısına çok sık çıkan problemlerden biri de belirli bir gu- 
rup sayının büyükten küçüğe doğru veya tersi veya isimlerin alfabetik olarak 
sıralanmasıdır. Bu işlemlerin yapılması için literatürde çeşitli algoritmalar 
mevcuttur. Burada bunlardan bilinen iki algoritmaya değineceğiz. 
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9.2.1 Seçimle Sıralama 


Seçimle sıralama algoritması en kullanışlı algoritmalardan biridir. Verilen lis- 
tedeki N elemanın içinde en küçüğü tesbit edip, bunu listenin başına getir, 
sonra kalan N-1 eleman içinden en küçüğü tesbit ederek listenin ikinci sırasına 
koyar ve işleme bu şekilde devam edilir. Böylece N eleman küçükten büyüğe 
doğru siralanmış olur. 
ÖRNEK 2: 1000 kişinin isiminin alfabetik sıraya koyan bir program yazınız. 
Programı aşağıdaki şekilde yazmak mümkündür. UST kalan listedeki ilk 
elemanın adresidir. Eğer bir andaki isim o andaki minimumdan, yani MIN 
den, küçük ise MIN'i yeniden TEMP ile yer değiştirerek bulmaktayız. Sonra 
minimum listenin başına yerleştirilir. 


10 REM 
20 REM (SEÇİMLE SIRALAMA ALGORITMASI 

30 REM 

40 DIM ISIM$(1000) 

45 INPUT M 

50 FOR Isi TO M: INPUT ISIM$(1): NEXT I 

60 N-1I-1 

70 FOR USTsi TON 

80 MIN$-ISIM$ (UST) 

90 FOR I-UST*i TON 

100 IF (ISIM$(I)<MIN$) THEN 110 ELSE 140 
110 TEMP$-ISIM$(1) 

120 ISIM$(I)MIN$ 

130 MIN$-TEMP$ 

140 NEXT I 

150 ISIM$ (UST) -MIN$ 

160 NEXT UST 

170 FOR Izi TO M: PRINT ISIM$(1): NEXT I 

180 STOP 

190 END 


9.2.2 Köpük Sıralama (Bubble Sort) 


Bir başka basit algoritmada köpük sıralama olarak bilinir ve liste kısmen 
sıralanır. Sadece alfasayısallar için değil sayısal değerlerin sıralanmasında da 
kullanılabilen bu algoritmanın ardında yatan düşünce şu örnek ile açıklanabilir. 
Elimizdeki sayısal liste sırasıyla 17. 11, 6, 2, 99 ve 8 olsun. 
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. İlk iki elemanı (17 ve 11) kıyasla ve sıralamak istediğiniz düzene uymuy- 


orsa yer değiştir. Bu durumda 17, 11 den büyük olduğu için sıralarını 
değiştirirsek yeni sıralama 11, 17, 6, 2, 99 ve 8 olur. 


. Bir sonraki çifte, yani 17 ve 6, aynı kıyaslamayı uygula ve gerekirse yer- 


lerini değiştir. Bu durumda yeni sıralama 11, 6, 17, 2, 99, 8 olur. 


3. Bu işleme listedeki bütün değerleri tarayarak devam et ve yer değiştirme 


işlemlerini gerektikçe yap. Kısacası sıralamalar her bir aşama için şu 
şekilde gelişir: 11, 6, 2, 17, 99,8 sonra 11,6,2.17, 99,8 veenson 11,6, 
2,17,8, 99. 


. Bu son listeye ikinci kez aynı işlemler dizisini uyguladığımızda sıralama 


düzeni 6,2, 11.8, 17. 99 olur. 


ÖRNEK 3: Köpük sıralama algoritmasını uygulayarak 100 adet tamsayıyı 
küçükten büyüğe doğru sıralayan bir FORTRAN programı yazınız. 


10 REM 

20 REM KÖPÜK SIRALAMA 

30 REM 

40 DIM A/(100) 

50 FOR 1-1 TO 100: INPUT AKI): NEXT I 
60 N-99 

70 FOR IN TO 2 STEP -i 

80 CEVAP7/-0 

90 FOR Ji TO 1-1 

100 IF (A(J)>A(J41)) THEN 110 ELSE 150 
110 TEMP-A(J) 

120 A(I)A(141) 

130 A(J4#1)TEMP 

140 CEVAP/--1 

150 NEXT J 

160 IF (NOT CEVAPZ) THEN 180 

170 NEXT I 

180 FOR 1-1 TO 100: PRINT A(1I): NEXT I 
190 STOP 

200 END 


CEVAP mantıksal değişkeni kullanılarak yer değiştirme yapılıp yapılmadığı 
kontrol ediliyor. Elemanlar arasında yer değiştirme yapıldığında CEVAP 
doğru değerini alıyor; yoksa baştaki yalnış değerini koruyor. Yer değiştirme 
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yapılmadığında artık sıralama tamamlanmış demektir ki bu durumda döngü- 
den GOTO 180 ile çıkış sağlanıyor. 


9.3 PROBLEMLER 


9.1 En son karakter olarak nokta (.) içeren bir alfasayısal sabiti okuyup, bunu 
tersinden yazan bir program hazırlayınız. 

9.2 Bir BASIC kaynak programını okuyup içinden açıklama deyimlerini 
çıkardıktan sonra başka bir isimle kaydeden bir program yazınız. 

9.3 K satır içeren bir paragraftaki kelimelerin sayısını hesaplayan bir prog- 
ram yazınız. Program paragrafın bulunduğu kütüğü girdi olarak okumalıdır; 
ayrıca her bir satırın 80 karakter uzunluğunda olduğunu, nokta, virgül gibi 
imla işaretlerinden sonra bir boş karakter konulması gerektiğini ve kelimelerin 
hecelenmediğini dikkate alınız. 

9.4 Bir BASIC kaynak programındaki RETURN'leri sayan ve bildiren bir prog- 
ram yazınız. 

9.5 Herhangi bir metin kütüğünü okuyarak, metindeki 'veya' kelimelerini 've' 
ile değiştiren ve yapılan değişikliklerin sayısını bildiren bir program yazınız. 
9.6 Girilen bir tamsayıyı son basamağından başlayarak her üç basamakta bir 
virgül ilave eden bir altprogram yazınız. Örneğin 12345678 sayısını 12,345,678 
şeklinde yazmalı. 

9.7 Türkçede kullanılan bütün harfleri kapsayacak şekilde girilen tek bir 
karakterin büyük harf olup olmadığını kontrol edecek ve değilse büyük harfe 
dönüştürecek bir altprogram yazınız. 

9.8 Bir alfasayısal indisli değişken M kişinin adlarını içermektedir. İsimler 
alfabetik sıraya konduğunda ilk ve son gelen isimleri geri getiren bir altprogram 
yazınız. 


Bolüm 10 


SERİLER 


Seriler sonlu ya da sonsuz toplam i içeren bazen de sonlu çarpım v.s şeklinde 

ifade edilebilen işlemlerdir. Örneğin, 
y l a n4#l 
li 


ii ar Va *n? 


nzl 


ifadeleri sonlu ve sonsuz serilere tipik örneklerdir. Bu serilerin toplamı, sonlu 
serilerde bir sayaç kullanarak ya da FOR-NEXT döngüsü aracılığıyla hesa- 
planabilir. Öte yandan, üst sınırı sonsuz olan serilerde, seri toplam arzu edilen 
basamak hassasiyetine göre kaç teriminin toplanması gerektiğini bilmemiz 
gerekir. 

Matematik derslerinizden hatırlayağınız üzere serilerde bir yakınsaklık 
kavramı vardır. Bu nedenle serilere bir takım yakınsaklık kriterleri (mukayese, 
orantı, kök ve integral testi gibi) uygulayarak, serinin yakınsak olup ol- 
madığını araştırmayı öğrendiniz. Hatırlarsanız, yakınsak bir serinin yeterli 
sayıda terimini topladıktan sonra diğer terimlerin de ilave edilmesiyle toplamın 
değişmediğine ya da çok az değiştiğine şahit oldunuz. Bunun nedeni, yakınsak 
serilerde ilave edilen her yeni terimin bir önceki terimden daha küçük olmasıdır. 
Böylece ilave edilen terim sayısı arttıkça, ilave edilen yeni terim sıfıra yaklaşa- 
caktır. Bu durumda, toplama işlemini ilave edilen terimin sıfıra yaklaştığı bir 
yerde kesmek ve diğerlerini ihmal etmek en makul davranış olacaktır. 

Burada en önemli problem, hangi değeri sıfıra yakın kabul edeceğimizdir. 
Bu problem, tamamen serinin değerini hesaplamak isteyen kişinin, o seri 
toplamını kaç basamağa kadar hassas bir şekilde hesap etmek istemesine 
bağlıdır. Bir kural olarak belirtmemiz gerekirse, üç basamağa kadar hassas 
bir seri toplamında ilave edilecek terimin 0.0001, dört basamak hassasiyet için 
0.00001'den küçük olması yeterlidir. Bu nedenle toplama işlemini yaparken 
her defasında ilave edilecek terimi ayrı bir yerde hesaplayıp, bunun mutlak 
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değerinin arzu edilen epsilon değerinden (bunu « ile belirtiriz ve bu değer, tek 
hassasiyetli işlem yaparken, 10-“'dan daha küçük seçilmemelidir) küçük olup 
olmadığı kontrol edilir. Eğer ilave edilecek yeni terim bu e değerinden küçük 
ise, toplama işlemi sona erdirilir. Fakat ıraksayan bir seride ilave edilen her 
terim bir öncekinden büyük ise ya da seri sıfırdan farklı bir değere yakınsıyorsa, 
seri toplam sonsuz olacaktır. 


Bir sayısal örnek üzerinde açıklayalım. Yakınsadığını bildiğimiz bir seri 
aşağıdaki şekilde verilmiştir: 
MM EŞ SE Se 
iy” e a ji 
1 4 0.0625 $ 0.0123456 $ --- 4 0.0001  0.0000633 $... 


Bu örnekten de görüleceği üzere serinin terimlerinin soldan sağa doğru 
gidildikçe bir önceki terime oranla küçüldüğü ve belirli bir noktadan sonra 
sıfıra yaklaştığı gözlenmektedir. Eğer bu seri toplamını üç basamağa kadar 
hassas bir şekilde hesaplamak istiyorsak, bu durumda seri toplamının ilk 10 
terimini toplamak yeterli olacaktır; çünkü değeri 0.0001 olan 10.cu terimden, 
yani, 1/10“'den, sonraki terim 0.0001'den daha küçüktür ve 11, 12, ... terim- 
lerinin ilavesiyle toplamın 3.cü değil 4 veya 5.ci basamağı değişecektir. 

Şimdi bu serinin programlanmasını ele alalım. Bir program aşağıdaki şe- 
kilde hazırlanabilir: 


01 REM -- SONSUZ SERI TOPLAM 

10 INPUT EPSILON 

20 N-O: T-0 

30 NN*1 

40 TERIM-1/N74 

60 IF ABS(TERIM)<EPSILON THEN 90 
70 TST*TERIM 

80 GOTO 40 

90 PRINT "SERİNİN ILK ";N;" TERIMI TOPLANDI" 
100 PRINT "TOPLAM - ";T 

110 END 


Bu programda sayaç (N) ve toplam (T) sıfırlandıktan sonra, sayaç bir artırılır. 
Serinin ilk terimi (a, — 1/19) hesaplanır ve mutlak değerce (çünkü seri 
sıfıra pozitif veya negatif taraftan yakınsayabilir) e değerinden küçük olup ol- 
madığına bakılır. Terimin ilk aşamalarda bu kriteri sağlamayacağı aşikardır. 
Bu kıyaslamayı sağlamadığında, terim toplama ilave edilir (T—T--TERIM) ve 
sayaç bir artırılarak aynı işlemlere, 7 ERİM| < e şartı sağlanıncaya kadar de- 
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vam ettirilir. Şartın sağlandığı durumdaki T değeri üç basamağa kadar doğru 
olarak hesaplanmış seri toplamını verecektir. 

Diğer taraftan, sonlu serilerin toplamında yakınsama ya da yakınsamama 
gibi bir problemimiz yoktur. Bu serileri programlarken iki yol izlenebilir. Bun- 
lardan birisi sayaç, diğeri de FOR-NEXT döngüsü kullanmayı içermektedir. 
Bu iki yolu açıklamak için aşağıda verilen sonlu serinin toplamına bir göz 
atalım. 

ta 
2 2 43i—1 


Sayaç kullanımı ile programlamaya örnek olarak 


01 REM -- SONLU TOPLAM 

10 150: Ts0 

20 Iz141 

30 T-T4(143)/(1*11341-1) 

40 IF 1<13 THEN 30 

50 PRINT "SERI TOPLAM - ";T 
60 END 


programı verilebilir. Burada yukarıda verilen sonsuz serinin programlanması 
için benimsenen algoritma aynen kullanılmıştır; ancak toplam ilk 13 terimi içer- 
mesi gerektiğinden, toplama işleminin sona erdirilmesi için uygulanan kriter, 
terimin bir epsilon gibi sayıdan küçük olmasından ziyade, sayacın değerinin 13 
olmasına bağlanmıştır. 


Bir FOR-NEXT döngüsü kullanarak programlanması durumunda, program 


10 REM --- SONLU SERI TOPLAM 
20 1-0 

30 FOR Izi TO 13 

40 -T*4(143)/(1*14341-1) 
50 NEXT I 

60 PRINT "SERI TOPLAM — “;T 
70 END 


şeklinde yazılabilir. Bu programda da toplama işlemi yapılan blok, bir FOR- 
NEXT döngüsü içine yerleştirilmiştir. Döngü bu bloğu 13 kez (N'nin 1-13 
arasındaki değerleri için) işleyecektir. Döngü çıkışında T sonlu seri toplamını 
verir. 


FOR-NEXT yapısı esasen bir sayaç ve kıyaslamayı içermektedir. Örneğin, 
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FOR N-I TO J STEP IB 


genel şekliyle verilen bir döngüde, bilgisayar bu deyim çiftini işlerken döngü 
sayacını, indisin ilk değerine atar (N—I), sonra NEXT (yani, sonraki anlam- 
nda) deyiminin bulunduğu satıra gelindiğinde döngü indisinin üst sınırı olan 
J değerine ulaşıp ulaşmadığını kontrol eder. Bu değere ulaşmış veya bu değeri 
aşmış ise, döngü sona erer ve bilgisayar işlemek üzere NEXT'den sonraki satıra 
geçer. Fakat sayaç (N), indis üst değerine henüz ulaşmamış ise, bu durumda 
sayacı IB kadar artırır (N—N--IB). 

ÖRNEK 1: Aşağıdaki şekilde verilen ve katsayıları programa dışarıdan 
temin edilen serinin toplamını veren bir program yazınız. 


7 9 
ai), bi 
izl 70 


Program a; ve b; ; katsayıları ekrandan temin edilcek şekilde aşağıdaki gibi 
yazılabilir: 


10 DIM A(7), B(7,9) 

20 FOR 1-1 TO 7: INPUT AÇI): NEXT 
30 FOR 1-1 TO 7: FOR J-0 TO 9 
40 INPUT B(1I,J): NEXT İJ,I 
50 T1-0 

60 FOR Izi TO 7 

70 T2-0 

80 FOR J-0 TO 9 

90 T2-T24B(1I,J) 

100 NEXT J 

110  TizTİYA(I)*T2 

120 NEXT I 

130 PRINT Ti 

140 END 


Programlama mantığını anlamak için yukarıda verilen seri toplamın açılı- 
mını kafanızda tasarlayabilmelisiniz. 

Seri toplamı yapabilmemiz için önce içteki toplam, yani herhangi bir ? için 
Sjbij toplamını hesaplamak gerekir. Bu nedenle J döngüsünden önce bu 
toplamı verecek T2 değişkeni sıfırlanmıştır. Döngü çıkışında toplam herhangi 
bir I değeri için hesaplanmış olur. Daha sonra dıştaki toplam, içteki işlemlerin, 
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yani a; ile T2'nin çarpımlarının toplamını verir. Bu toplam TI değişkeni ile 
temsil edilmiştir. 


10.1 PROBLEMLER 


10.1 Aşağıdaki şekilde verilen 7 değerini programa dışarıdan girilecek herhangi 
bir x (0< x <2) değeri için hesaplamak istiyoruz. Bu ifadeyi hesaplayan bir 
programı yazınız. 


PE ayal ağ ve ee 


10.2 Aşağıdaki seri işlemini verilen şartlar altında hesaplamak için bir akış 
şeması çiziniz ve program yazınız. 


17 
abi 
izl 
a; — isini 1 <$ b, — e“/19 
— Üsini i>8 


10.3 Aşağıdaki işlemi herhangi bir x değeri için hesaplayan akış şeması çiziniz 
ve program yazınız. NOT: Burada kullanılan d;'ler dışarıdan temin edilen 
sabitlerdir. 


9 
II dız cosiz 
izl 
10.4 Tanjant hiperbolik fonksiyonun değerini hesaplamak için verilen bir al- 
goritma aşağıda çıkartılmıştır. 


z <0 için tanhr——tanhe, 
|) < 0.00034 için Oo tanhr—z, 
0.00034 < || < 0.17 için (o tanhe—f(44f(/B4C(DA AYI, 
0.17 <)/z) <11.15 için oOtanhr—(€—e “Y/(€” e) 
|z| > 11.15 için Otanhı—l 


Burada / — 4xlog,e, A—5.7707802, B—0.0173286, C—14.138411 ve D— 
349.6699888 olarak verilen sabitlerdir. 

10.5 Aşağıdaki matematiksel işlemleri yapmak üzere hazırlayacağınız bir prog- 
rama önce bir algoritma hazırlayın, bu algoritma için akış şeması çiziniz ve 
program yazınız. 
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10 15 
> Yi p 2) , 
izl Jz1 


Burada y; — 0.04, c; — ((—2)/ 4 397/59, ve x; — i/5 olarak verilmektedir. 
10.6 Bir şahıs yıllık z faiz veren bir bankaya her yılın aynı gününde A TL'yı 
n yıl boyunca yatırmaktadır. n yılın sonunda biriken para F faizi ile beraber 


i iy” i X” RT 
F—A (ı mİ (ı 0) (ı al e (ı a) 
| Li 100 Li 100 Gi 100 tm ii 100 
formülü ile hesaplanıyor. A,7 ve n değişken olmak üzere faizi hesaplayan bir 
program yazın. 


NOT: Yukarıdaki formülün genel şekli: 


| i mi i 2m i mn 
demi | X imi Ni ( Ni ime ay ( 7 ii) | 


Burada m bir yıldaki faiz periyodu sayısıdır. 

10.7 Aşağıda seri şeklinde verilen ifade x'in (1,3) kapalı aralığında 0.25'lik 
arttırımlar ile ve hata mertebesi e — 10““ten küçük olacak şekilde hesaplan- 
mak isteniyor. Seri toplamının mutlaka en uygun bir alt programda yapılması 
önerilmektedir. 


| zx 1-2 zF4 ) ( z*-2m ) Ni > bn 
iyam)tieai Minare 8m el Leri İyem 


10.8 Dizinin değerleri programa dışarıdan temin edilen (konsoldan veya bir 
kütükten de olabilir) N tane z; ve M tane y; indisli değişkenlerinden hareket 
ederek, bu iki dizinin varyanslarını ve toplam varyansını hesaplamak için bir 
program yazınız. Verilenler: 
N 
VAR(X) —SS2 —X (2,—2)/N 

izl 

N4#VAR(X) 4 M # VARIY) 
NM 

10.9 Bir lokantanın vestiyerine şapkasını teslim eden K kişi şapkalarını geri 
almak için vestiyere gittiklerinde vestiyer çalışanı herkesin şapkasını karıştırmış 
olduğunu fark ediyor. Bu K şahısın şapkalarını almama olasılığı aşağıdaki 


Toplam varyans — 
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formül ile saptandığı bilindiğine göre bu problemi, programa temin edilecek 
bir K değeri için çözecek bir program yazınız. 


Kk i,i 4 i el 
P-y-gtg-gtetı- 2.0 


10.10 Herhangi bir x değeri ve N — 10 için Z(x) fonksiyonunun değerini 
aşağıda verilen seri açılımları, n ve x'in fonksiyonu olarak verilen F,(x) ve 
Y,(x) yardımıyla, hesaplamak istiyoruz. Bu işlemi bilgisayar aracılığıyla ya- 
pabilmemiz için bir program yazınız. 


> hi n1:3:5:-::(2m—l) 
Fu(&) —14 2 (xa2)im 
, 2.4-6::--(2m) 
Ya(2) — logolar) — 2 tay ye 
e 
de > (n 41) 


NOT: Hazırlayacağınız program /,(7). Y,(x) fonksiyonlarını ve faktoriyel 
hesabını yapan 3 adet altprogram içermelidir. 


10.11 Aşağıdaki seri işlemlerini ve Z yi hesaplayan bir programı yazınız. 


17 2 «1 10 n” iy 
m Ez —— di — A 25 
ç DER z 2.7 x *#y 


10.12 Dikdörtgensel basit destekli plakaya uygulanan üniform yük ile plakanın, 
Ola <ave—b/2 < y< b/2, herhangi bir (2,y) noktasındaki bükülme 
momentleri M,, M, ve M,, aşağıdaki seriler ile veriliyor. 


M - Ör'a n(1 — ») cosh İ,y 


* nB, (a — rü sinh 3,y — 2v cosh 3ny)| sin İ,r 


M, - gi pe | 


nz1,3 
— 8, (( — »)3,ysinh 8,y * 2v cosh 3ny)| sin İç 


)cosh İny 


Miş —(1—w) YOr?a? Be (in? A, sinh 3,y-4-n?B, (sinh 3ny-*-Bay cosh 3, y) |cos Bs 


nz13 
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ayrıca 
NK 3g 2 
Bu —, we—— Bs e An, -—B,la, tanha, 42) 
a 2 xmö5 cosh a, 


olarak tanımlıdır. Burada O uygulanan üniform yük ve v poisson oranıdır. 
Plaka üzerindeki herhangi bir noktadaki momentleri hesaplayan bir program 
yazınız. Veriler: 0—25 kg, »—0.3, a — 20cm, b —24cm ve «e—0.0001. 


10.13 Aşağıdaki formül ile verilen a ifadesini hesaplayan bir program yazınız. 


arccos(k/50) 


vV3k7? —1 


17 9g k 1 Ni 
mi i * Öl, * k- ————— 
d | > xi Nnr) 


Cş — cosh(k1/3) D, — 


Bölüm 11 


KÖK BULMA 


Mühendis ve bilim adamlarının belki de en çok ihtiyaç duydukları matematik- 

sel işlemlerden biri de bir fonksiyonun kökünü veya köklerini bulmaktır. Kök 

bulma işleminde fonksiyonlar karşımıza, polinom şeklinde ya da trigonometrik, 

üstel, hiperbolik v.b fonskiyonların kombinasyonunu içeren şekilde çıkabilmek- 
tedir. Bunlardan 

l EŞ 2 

rtanı—ı— a €sinz—l g 

gibi ifadelerin köklerini analitik yöntemler ile bulmak çok zordur. Bu tür 

fonksiyonlara lineer olmayan denklemler adı verilir. Bu denklemleri sayısal 


yöntemler kullanarak, özellikle bilgisayar yardımıyla çözmek oldukça basittir. 


€ —Ya —tani 


Polinom şeklinde olan fonksiyonlardan en basiti ve herkes tarafından bi- 
lineni ikinci dereceden denklemin köklerinin hesabını içerir. İkinci dereceden 
denklem 

ar” saşr4a3-0 
genel halinde verilmişse, bu denklemin kökleri A — a? — 4ajaş olan discrimi- 
nantın işaretine bağlı olarak gerçek ya da komplekstir. 


Eğer A > 0 ise iki gerçek kök mevcuttur. 


* VA 


My a ——  — 
2aj 


Eğer A — 0 ise bir birine eşit iki gerçek kök mevcuttur. 


Big 
— 2aş 


Eğer A < 0 ise bir birinin eşleniği şeklinde iki kompleks kök mevcuttur. 
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İkinci dereceden bir denklemin köklerini veren bir altprogram aşağıda veril- 


miştir: 


100 
110 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


REM -- IKINCI DERECEDEN DENKLEMİN KÖKLERINI HESAPLAYAN 
REM -- ALT PROĞRAM. JKINCI DERECEDEN DENKLEM 


REM -—- Al *X2 * A2 *X 143-0 
REM -- ŞEKLİNDEDİR. 
REM -—- 


DELTA-A2*A2-4*A1*A3 

IF (DELTA<O) THEN 240 
DELTA-SOR(DELTA) 
X150.54*(-A24*DELTA) /A1: X2-0.5*(-A2-DELTA) /A1 
PRINT : PRINT 

PRİNT "X29;X1 , Xa :x2 

PRINT : PRINT 

RETURN 

DELTASSGR(-DELTA) 

RE--0.5*A2/A1 : IM-0.5*DELTA/A1 
PRINT : PRINT 

PRINT "X-";RE;"4";IM;" 1“ 

PRINT "X-"9;RE;—*; IM; 19 

PRINT : PRINT 

RETURN 


Diğer taraftan üçüncü dereceden bir polinomun köklerinin bulunması için 


de bir algoritma geliştirilmiştir. Bu algoritma, üçüncü dereceden polinom 


Tİ L â37” lüztld, <0 


şeklinde veriliyorsa P ve O değerleri 


9 1 d4 dzd3 ğ Za; Pp 1 d3 az 
“ dDNa 3aş  2Taj)'  Bla 3ai 


ifadelerinden hesaplanır. Köklerden birinin bulunması aşağıdaki şartlara göre 


tesbit edilir. 


(1) PP 407 <0ise 


(2) 


, m za 
Tı — — — 2V—P cos E arctan — | 


Pp” * gg — 0 ise Tı — —az/(Bax) — 2018 
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(3) PP402>0veP<0ise, 


ng -fesyrel” -fe- yerel” 


(4) PP402>0 ve P—Oise, zı —aş/(3a) — (20)15 
(5) PP -402>0veP>0ise, 


, 1/3 1/3 
n--54İVPe-o) -İVPr4o 40) 
21 


Bir kök bulunduktan sonra diğer iki kök aşağıdaki ikinci dereceden denklemin 
çözümünden elde edilmektedir: 


a3” 4 (aşk azrı)a 4 Kaz 4 a31ı)rı * a1) <0 


Maalesef bütün polinom ve fonksiyon kombinasyonları için yukarıda verilen 
şekilde güzel analitik çözüm yolları bulmak mümkün değildir. Sadece bazı özel 
fonksiyonlar için ortaya atılan metodlar vardır. 

Çözümü en zor gibi gözüken metodlardan birisi de kökü araştırılan fonksi- 
yonun lineer olmamasıdır; yani yukarıda belirtildiği gibi değişik fonksiyonların 
kombinasyonu şeklinde olmasıdır: xe” — x 4 1 — 0 gibi. Bu durumda, analitik 
çözüm aramak zamanı boşa harcamak anlamına gelir. Fakat bu tür fonksiyon- 
ların da köklerini bulmak için çeşitli sayısal metotlar geliştirilmiştir. Bunlardan 
en yaygın ve etkin bir şekilde kullanılanı Newton-Raphson metodudur. 


Newton-Raphson Metodu 


Bu metod bir ardışık tekrar gerektirir. Fonksiyonun bir kökü için z*9) tahmin 
değeri atamamız ve bu tahmin değerini her keresinde yenilememiz gereklidir. 
Bulunan yeni değerler fonksiyonda yerine konarak fonksiyonun değerinin sıfıra 
yaklaşıp yaklaşmadığı kontrol edilir. Eğer fonksiyon sıfıra arzu ettiğimiz bir e 
değeri kadar yaklaşırsa çözüm bulunmuş demektir. 


Ardışık tekrar için kullanılması tavsiye edilen işlem: 


(rn) 
giti) e yin) > Ja ) 
flat) 


ile verilmektedir. Burada ifadede üstel şekilde (n) gösterimin anlamı ».nci 


işlem aşamasındaki x değerini belirtmektedir. 
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Tablo 11.1: e” — 3x — 0 denklemini Newton-Raphson metodu ile çözüm aşa- 
maları. 


KENE BTE ZE 


0.30000 | 0.44986 | —1.65014 
0.57262 | 0.05505 | —1.22709 


0.61748 | 0.001S1 | —1.14575 
0.61906 | 0.00000 | —1.14282 


Newton-Raphson metodunu programlamak için aşağıda bir algoritma ve- 
rilmektedir: 


1. Kök için tahmin değeri, x“©), ve kök'e yaklaşılması istenen hassasiyet (e) 
girdi olarak saptanır. 


2. Fonksiyonun f/(2(”)) ve f”(x()) değerleri hesaplanır. 


3. 600) X A())/ eli) formülünden birbirini takip eden aşamalarda 
bulunan kök ara değerleri arasındaki fark bulunur. 


4, gt) < el) 4 60) formülünden de (n 4 1).nci aşamada kök için bu- 


lunan ara değer hesaplanır. 


5. Eğer |6(8*0| < « ise, kök x(”t1) dir. Fakat kök bulunmamış ise, işlem 
2.nci aşamaya gönderilerek 2-5 aşamaları kök bulununcaya kadar devam 
ettirilir. 


Şimdi de bu işlemi bir sayısal örnek ile inceleyelim. Ele alacağımız örnek 
e — 3 eşitliğini sağlayan x değerinin bulunması olsun. Bu durumda f(x) — 
e —3x —0 sıfır şeklinde yazıldığı takdirde f(x)'in kökü bu eşitliği sağlar. 

Başlangıç tahmin değerini x(© —0.3 alırsak ve yukarıda verilen algoritma 
uyarınca gerekli işlemleri yapacak olursak Tablo 11.1'deki sayısal değerler elde 
edilir. Burada sadece dört basamak hassasiyetle çalışılmıştır. 


Von Mises Metodu 


Newton-Raphson metoduna benzeyen fakat türevi bir çok kez hesaplamaya 
gerek bırakmayan bir metod da von Mises metodudur. Bu metod da benzer 
şekilde bir ardışık tekrar metodudur. Fonksiyonun kökü, aşağıda verilen ve 
ardışık işlem gerektiren ifade ile hesaplanır. 


kg 


10 REM -- NEWTON-RAPHSON YÖNTEMI ILE KÖK BULMA IŞLEMINI 
20 REM -- YAPAN PROGRAM. XO- KÖK IÇIN BAŞLANGIÇ TAHMINI, 
30 REM -- EPS - YAKINSAMA IÇIN KULLANILACAK KRITERDIR. 


32 REM -- FNF(X)- KÖKÜ ARANAN FONKSIYON 

34 REM -- FNP(X)- D(FNF(X))/DX, YANI FNF'IN X'E GÖRE TÜREVİ 
36 REM -- 

40 READ XO,EPS 

50 DATA 0.3,1.E-4 

60 PI-A4*ATN(1) 

70 DEF FNF(X)-EXP(X)-34X 

80 DEF FNP(X)EXP(X)-3 

90 PRINT TAB(5);"1";TAB(15) ;"X";TAB(30);"F" 


100 PRINT V------------ " 
110 X-X0 : 1-0 
120 F3FNF(X) 


130 PRINT TAB(4) ;I;TAB(10);X;TAB(25) ;F 
140 DELTASFNF(X) /FNP(X) 

150 X-X-DELTA 

160 I-1t1i 

170 IF (ABS(DELTA)>EPS) THEN 120 

180 PRINT : PRINT : PRINT "KOK—";X 

190 END 


Ardışık tekrar için kullanılması tavsiye edilen işlem: 


He) 


geti) şip 2 2 


NEYİ 


Bu ifadeden de görüldüğü üzere Newton-Raphson formülünden tek farkı pay- 
dadaki türevin sadece başlangıç tahmin değeri için hesaplanması gerektiğidir. 
Bu metodun algoritması da Newton-Raphson'unkinin hemen hemen aynıdır. 


Yukarıda çözülen problemi bu metod ile çözüp ve sayısal değerleri Tablo 
11.2'de özetlediğimizde, problemin çözümü için yapılan ardışık işlem sayısının 
Newton-Raphson metodundan fazla olduğu görülür. 


Polinomların, kompleks katsayılı polinomların ve daha nice lineer olmayan 
denklemlerin köklerini bulmak için geliştirilen yöntemlerin sayısı oldukça faz- 
ladır. Mühendislik ve teknolojik öneme sahip metodların en önemlilerine 
Nümerik Analiz derslerinde değinilecektir. Burada kapsanan metodlar şu anda 
temel bilimlerde karşılaşabileceğiniz problemleri çözecek yeterliliktedir. 
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Tablo 11.2: Örnek için von Mises metodu ile çözüm aşamaları. 


0.4498 
0.0551 
0.0152 
0.0045 


0.6178 | 0.0014 
0.6186 | 0.0005 
0.6189 | 0.0002 
0.6190 | 0.0001 


11.1 PROBLEMLER 


11.1 Fraunhofer differaksiyonunun incelenmesinde 


e 1 
a 9 


denklemi ile karşılaşmaktayız. Bu denklemden a'yı radyan olarak hesaplayınız. 


11.2 Aşağıda verilen eşitlik bir helisel yay sisteminin hareketini tanımlamak- 
tadır: 

tan — 3—C 
Burada 4 ile verilen açıyı (a) C—0.01 ve (b) C—0.001 alarak hesaplayınız. 
11.3 Birçok durumda duvar içinden iletilen yüksek gerilimler için tüp şeklinde 
yalıtkanlar kullanılır. Minimum kesit alanı O'yu üretmek için bu yalıtkanın 
dış çapı 2R'nin, iç çapı 2r'ye oranı olan x'in ne olması gerekir? Kesit alanı 


olarak ve g bir sabit olarak verilmektedir. Herhangi bir g sabiti için z oranını 
bulan bir program yazınız. 


11.4 Bir devreden geçen akımın zamana göre değişimi 
i—5eİsin(x/4) 4-5sin(5t — 7/4) 


olarak verilmiştir. Akımın sıfır olduğu zamanı saniye cinsinden bulunuz. 


11.5 Hidrojen sülfür gazının parçalanma derecesi X 


(1 — PK?)X3 —3X 42-0 
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denklemi ile verilmektedir. Burada K denge sabiti ve P atm olarak toplam 
basınçtır. 2000 Kelvin sıcaklığında K—0.608 olduğu bilindiğine göre, /25'in | 
atm basınçta parçalanma derecesini bulunuz. X'in alabileceği değerlerin 0 ile 
I arasında değişmesi gerektiğine dikkat ediniz. Bu aralık içinden ve dışından 
başlangıç tahmin değerleri kullanarak problemi çözünüz ve sonuçarı irdeleyiniz. 


11.6 Van der Waals durum denklemi 
(245) (v-E)—AT 
çi 


ile verilmektedir. Bu denklemde P basınç. v molar hacim, 7 sıcaklık ve R gaz 
sabitini temsil etmektedir. Sabitlerden a, bağlanma kuvvetinin bir ölçüsü ve b 
de bir hacim düzeltme faktörü olarak kullanılmaktadır. Basınç atm, hacim (tf 
ve sıcaklık K (kelvin) birimi olarak alındığında £'nin değeri 0.082 /#-atm/K- 
mol'dür. Toluen için a ve b sabitleri 


a — 24.06 İt atm/mol b — 0.1463 /£/mol 


olarak veriliyor. Toluen'in 1 atmosfer basınçta kaynama sıcaklığı olan 1109C 
sıcaklığındaki molar hacmini hesaplayınız. 

11.7 Üçüncü dereceden denklemlerin köklerinin bulunması ile ilgili olarak ve- 
rilen algoritmaya dayanarak, bu tür denklemlerin köklerini bulan bir genel 
program yazınız ve köklerini bildiğiniz denklemler ile kontrol ediniz. 

11.8 Aşağıda verilen iki bilinmeyenli iki lineer olmayan denklemin köklerini 
Newton-Raphson metodunu uygulayarak çözmek istiyoruz. 


ö-P—ol a—-E—1l 
Program yazmak için ilk önce bu sistem için Newton-Raphson formülünü 
geliştiriniz, sonra formülleri programlayınız (bilinmeyenleri 10-“ten küçük 
hata ile hesaplamak istiyoruz). 


VERİ: İki değişkenli fonksiyonlar için Taylor formülü: 


0 of 
Hai) < Have) 4 (e — ze) (52) vü) (22) 
1) (eoswo) Vİ (yiyo) 
NOT: Problem, bilinmelen sayısı bir'e indirgenerek de çözülebilir. 

11.9 Kalınlığı 10 cm olan ve oldukça yüksek bir plakanın sıcaklığı 1009C'ta 
homojen olarak tutulmaktayken, 4 — 0 anından itibaren plakanın iki tarafın- 
dan hava üflenerek soğutulmaya başlanmaktadır. Bu plakanın herhangi bir x 
noktasında ve t anındaki sıcaklığı 7(2,1) 

d0T ©T 

0 02 
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T(x,0) — 10090, mon, >0o İİ mona, 4>0 
Oz dr 


diferansiyel denklemi ve sınır şartlarıyla beraber verilmektedir. Bu kısmi difer- 
ansiyel denklemin analitik çözümü aşağıdaki seri halinde elde edilmiştir: 


n I 
(2,1) < 400 > X man 7) expi—4a21) cos (2an(1 — >) , 0S<r<0.Im 


Burada a, değerleri 


atana — 


> 


denkleminin pozitif kökleridir. Bu seri ifadesinden faydalanarak plakanın her- 
hangi bir x (metre) noktasının 4 (saniye) anındaki sıcaklığını bulan bir program 
yazınız. NOT: Önce a değerlerini bulunuz ve bunları programa DATA deyimi 
ile giriniz. 


Bolüm 12 


TÜREV 


12.11 FORMÜLLERİN TÜRETİLMESİ 


Matematik derslerinden hatırlayacağınız gibi, bir f(x) fonksiyonunun x — a 
değerindeki türevi tanım olarak 


(121) 


olarak verilmektedir. 

Bilgisayar aracılığıyla türev hesabında, analitik olarak verilen bir f(x) fonk- 
siyonunun türevine ilaveten, analitik ifadesi bilinmeyen sadece kesikli dağılımı 
bilinen fonksiyonların türevleri de hesaplanabilmektedir. 

Örneğin aşağıda verilen fonksiyon, analitik olarak tanımı bilinen bir fonk- 
siyondur. 

f(x) — sin(e” — 22 4 27) 43 — arctan(2) (12.2) 
Diğer taraftan, aşağıdaki tablo ile verilen, suyun buharlaşma gizli ısısının sıcak- 
lıkla değişimi kesikli dağılım vermektedir; bu değişim bir f(7) şeklinde ifade 
edilememektedir. 


Şimdi türevin tanımına dönecek olursak, tanımdan çıkartılan sonuç / 
değerini mümkün olduğu kadar küçük seçmek olacaktır. Bu durumda her- 
hangi bir a noktasında f(x) fonksiyonunun türevi 


flash) — fa) 


fa) 7 
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olarak yazılabilir. Bu türev formülüne ileri fark formülü denir ve bu formül ile 
yapılan hesabın hata oranı / ile doğru orantılıdır. İleri fark formülü olarak ad- 
landırılmasının nedeni de dikkat edileceği gibi a noktasından h kadar ilerideki 
bir noktaya göre eğim hesaplanmaktadır. 

Eğer a noktasının h kadar gerisindeki bir noktaya göre eğim (yani türev) 
hesaplanacak olursa, formül 


e İ(a)— Ha—h) 


Fa) 7 


(12.4) 
şeklini alır ve bu formül de geri fark formülü olarak adlandırılır. Geri fark 
formülü ile yapılan hata oranı da aynı şekilde / ile doğru orantılıdır. 

Bir başka hesap şekli daha ortaya konabilir. Bu da a noktasının h kadar 
ilerisinde ve gerisindeki değerleri esas alan eğim hesabıdır: buna göre 


a Pa 4 h)— fla—h) (12.5) 


Fa) 5 


elde edilir. Bu durumda a noktası a--h ile a—h arasında yer aldığından dolayı, 
bu formül merkezi fark formülü olarak adlandırılır. Merkezi fark formüllerinde 
yapılan hata ise, h? ile doğru orantılıdır. 

İkinci dereceden türevlere gelince, f”(a) hesaplamak için ileri-fark formülü 
olarak 


dd) flakh)— fa) 


dı dı h 

1 (4024) — Hah) Hash) — fa) 
h h h 
FHa-2h)—2f(a--h) 4 fa) 
e 


fa) 


elde edilir. Benzer şekilde geri ve merkezi fark formülleri sırasıyla 


Ma) < A) Pah) 
de dı h 
ni EL) 
oh h h 
f(a)—2f(a— h)-4 f(a— 2h) 
h? 


Ağ e 8) ei —e a) 


dı dı h 
« 2jverhi— Mel Haaa) 
oh h h 
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Tablo 12.1: Türev formüllerinin / ile değişimi 


/'(1) (ileri) f(1) (merkezi) f”(1) (ileri) /f”(1) (merkezi) 
0.1 0.348945 0.367263 -0.394891 -0.366344 


0.01 0.366034 0.367873 -0.371452 -0.367864 
0.001 o 0.367695 0.367S79 -0.368246 -0.367879 


Hash) -2la)k Hah) “— 
h? 
elde edilir. 

Şimdi bir sayısal örnek ele alalım; örneğin f(x) — x?e- fonksiyonunun x — 
Udeki birinci ve ikinci dereceden türevlerini bulmak isteyelim. Bu fonksiyonun 
türevleri f(x) — (22—x2)e” ve f”(x) — (22—4x42)e-* analitik ifadelerinde 
z — l alındığında f/'(1)—0.367879 ve f”(1) — —0.367879 olarak hesaplanır. 
z — 1 noktası için ileri ve merkezi fark formülleri, sırasıyla 


İL Ah)— İİ) İL 4h)—f(—h) 


Mya e fi) 5 
pa) fik?) ze 4 h) 4 Fİ) 
Fn) m j(ı a h) e eld iz h) 


şeklinde yazılır. Türevleri, 4 —0.1, 0.01 ve 0.001 için, bu formülleri kullanarak 
hesaplayacak olursak, sonuçların Tablo 12.1'deki şekilde olduğu görülecektir. 

Tablo 12.1'deki türev değerleri incelendiğinde, merkezi fark formülleriyle 
elde edilen türev değerlerinin gerçek değerlere. ileri fark formülleri ile elde 
edilenlerden, daha yakın olduğu gözlenir. Bunun nedeni kullanılan formüllerin 
hata miktarıdır; ileri fark formülündeki hata, h—0.1 için, O.1A, (Aş ve K, 
sabitlerdir) iken merkezi fark formülünde 0.01X;, dir. Bütün formüllerde 4 
değeri küçüldükçe K, ve K;'nin hata terimindeki etkisi küçülmektedir. Bu 
etki merkezi fark formülünde, K'nin katsayısı daha küçük olduğundan dolayı, 
daha hızlı olmaktadır. 

Bu şekilde analitik olarak verilen bir fonksiyonun herhangi bir x — a nok- 
tasında birinci ve ikinci dereceden türevlerini veren bir program aşağıda veril- 
mektedir. 
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10 DEF FNF(X)> X#X*EXP(-X) 

20 INPUT A,H 

30 REM --- BU PROGRAMDA Fi BIRINCI DERECEDEN TÜREV 

40 REM --- F2 ISE IKINCI DERECEDEN TÜREVI VERMESİ IÇIN 
50 REM --- ATANAN DEĞIŞKENLERDIR. KULLANILAN FORMÜLLER 
60 REM --- MERKEZI-FARK FORMÜLLERIDİR. 

70 Fi-O.5*(FNF(ASH) -FNF(A-H) )/H 

80 F2-(FNF(AHH)-2*FNF(A)*FNF(A-H) )/H72 

90 PRINT "“"FONKSIYONUN X-";A;" DAKI TÜREVLERİ " 

100 PRINT "Birinci Türev-";Fi 

110 PRINT "Ikinci Türevz";F2 


120 END 
Analitik olmayan (kesikli dağılan) fonksiyonların çeşitli zo, 71, ..., 
değerlerine karşılık gelen değerleri f/p. fı. /2. .... fn olsun. Bu durumda her- 
hangi bir 2; noktası için türev formülleri 
Ha) bh ileri fark formülü 
) 
m LA zi , Sisi 
Esi mm merkezi fark formülü 
ZN 


şeklinde yazılabilir. 

Dikkat edilecek nokta x;'lerin eşit aralıklarla dağılmış olmalarıdır; yani 
T; — içi $h şeklinde belirtilebilmesidir. Bu tür dağılımların türevlerini 
hesaplayan bir program yazarken /;'lerin bir boyutlu indisli değişken olarak 
tanımlanmaları büyük kolaylık sağlar. Aşağıda herhangi bir UV noktasında 
(VU —a;,iz1.2.....N) birinci ve ikinci dereceden türevi hesaplayan bir altpro- 
gram verilmektedir. 


100 REM -- KESIKLI DAĞILIMI OLAN DEĞIŞILERDE TÜREV HESABI 


110 REM -- NN, BOYUTLU X(I) VE F(I) ANA PROGRAMDA 

120 REM -s DIM X(N),F(N) OLARAK TANIMLANMALIDIR. 

130 REM ————————————————————————— mmm mmm mmm 
140 REM 


150 REM "U" NOKTASININ HANGI i DEĞERİNE KARŞILIK GELIYOR? 
160 FOR Izi TO N-1 

170 IF U-X(I) THEN KzI 

180 NEXT I 

190 REM --- MERKEZI-FARK FORMÜLLER! KULLANILMIŞTIR. 

200 H-X(K*1)-X(K) 
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210 F1-0.5*(F(K*1)-F(K-1))/H 

220 F2<(FNF(K*1)-2*F(K)4*F(K-1))/H72 

230 PRINT "FONKSIYONUN U—";X(K);" DAKI TÜREVLERI " 
240 PRINT "Birinci Türev-";Fi 

250 PRINT "Ikinci Türev-";F2 

260 END 


Çeşitli uygulamalara referans teşkil etmesi bakımından, bazı türevler için 
fark formülleri aşağıdaki verilmiştir. 
Merkezi fark formülleri (hata /h? ile orantılı): 


fiya > fa 


pr 


> 2h 
# fiş Ek 2) t ji-a 
ul h? 
pm — faa -Ifui Oha fi 
© oh3 


İleri Fark Formülleri: 


js fiş — hi h ile orantılı 


h 
fis mf th İh, h3 ile orantılı 
oh 


Geri Fark Formülleri 


ps üz h ile orantılı 
7 


© Se—ija ti 


jj mm > emmi h? ile orantılı 


12.2 PROBLEMLER 


12.1 Bir araba harekete geçtikten sonra her 2.5 sn'de bir hızı ölçülerek 
kaydedilmiş ve bu ölçümler aşağıdaki tabloda verilmiştir. Bu arabanın 25 
sn sonu itibarıyla her 2.5 sn'ye denk gelen ivmesini hesaplayan bir program 
yazınız (NOT: ivme a — dvj/dt ile hesaplanacaktır). 


EE EE EE EE EE EE ED EZEN EZ 
KETEN Dİ KENE EEE EEE EN EEE 
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12.2 Aşağıdaki verilerde her bir x noktası için birinci ve ikinci dereceden türev- 
lerini hata oranı en az olacak şekilde hesaplayınız. 


EMAN EN EN EEE 


12.3 f/(2) — 3V7-41—?/In(x- 1) fonksiyonunun türevini (f/1.2)) x — 
1.2'de hata oranı (0.1)2 ile orantılı olacak şekilde ileri, geri ve merkezi fark 
formülleri ile hesaplayınız ve analitik olarak hesaplanan türev değeri (yani, 
gerçek değeri) ile karşılaştırınız. Yazacağınız bir programda / girdi olsun. 


12.4 Aşağıda dağılımı verilen fonksiyonun f/ ve f” türevlerini mümkün olan 


en az hata ile hesaplayınız. 


12.5 f(x) fonksiyonu aşağıdaki şekilde tanımlanmıştır: 


Gi 9 


23 — arctan 29 


(1.2) aralığında her 0. lik artırımlara karşılık gelen > değerleri için fonksiyonun 
birinci ve ikinci dereceden türevlerini merkezi fark formülleri ile hesaplayan bir 
program yazınız. Programda h — 0.001 alınız ve herhangi bir & için türevleri 
hesaplayan bir altprogram oluşturunuz. 


Bölüm 13 


MATRİSLER VE 
VEKTÖRLER 


Matrisler ve vektörler ile uğraşırken indisli değişkenler kullanılmak zorun- 
dadır. Matrisler ile uğraşmamızın nedeni ise birçok problemin çözümünde 
lineer denklem sistemlerinin karşımıza çıkmasıdır. N bilinmeyenli N denklemin 
çözümü için yapılması gerekli işlerden birinin de matrisin tersini hesaplamak 
olduğudur. 


Lineer denklem sistemleri diferansiyel denklemlerin nümerik çözümleri, 
yapısal analiz, devre analizi, optimizasyon, ve veri analizi gibi birçok prob- 
lemlerin çözümlerinde karşımıza çıkarlar. Oldukça fazla sayıda denklemden 
oluşan sistemlerin çözümlerine sıkça karşılaşılır. Bu durumda denklem sistem- 
lerini hem doğru hem de verimli bir şekilde çözmek için uygun bir algoritma 
saptamak önemli olmaktadır. 


13.1 TEMEL BİLGİLER 


Bir matrisin n satır ve n sütunu var ise bu matrise Kare Matris denir ven xn 
ile gösterilir. Ornek olarak 4 x 4 lük bir matris aşağıdaki şekilde verilmiş olsun. 


dı 413 a3 Aj4 
d2ı d32 d23 34 
A— 

A3ı d32> d33 d3a 

d41 d43 d43 d44 
Köşegen 4jı. 423, 433 ve aşş elemanlarından oluşmakta olup, bu terimlere mat- 
risin Ana Köşegeni denir. Eğer matrisin elemanları arasından a;; — aj; bağın- 
tısı var ise matris simetriktir denir. Bir Ust Uçgensel Matris ana köşegen 
altında kalan bütün elemanları sıfır olan matristir. 


1SI 
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Gaı dı? dı3 dı4 
0 ay a ay 
0 0 433 d34 


0 0 0 a4 


Yukarıda verilen A matrisi bir üst üçgensel matristir. Benzer şekilde 44 Üç- 


As 


gensel Matris de matrisin ana köşegeni üstünde kalan bütün elemanları sıfır 
olan matris olarak tanımlanır. 


Birim matris I ile gösterilir ve ana köşegeni “1” diğer elemanları sıfır olan 
matristir. Band Matris ise ana köşegen etrafındaki köşegenlerde sıfır olmayan 
elemanlardan yoğunlaşmış matristir. 


diı 413 0 0 
Azı A3 a3 Ö 
A — 


0 d32> d33 d34 


0 O di3 daş 
A matrisi band genişliği üç olan bir band matristir ve band genişliği üç olan 
matrislere ayrıca Üç Köşegenli matris de denir. 
A,BveCn Xx n'llik kare matrislerinin elemanları sırasıyla a;;, bi; ve Ci; 
olarak verilmiş olsun. C—A -B operasyonu neticesinde C matrisinin eleman- 
ları €;; — aj; * b;; ifadesi ile hesaplanır. Eğer C matrisi bir çarpım matrisi ise, 


yani, C—AXxB, o zaman çarpım matrisinin elemanları: 


ni 
Cij — N. ajşbiki 
kei 


ifadesinden hesaplanır. Program 1'de bu işlemi yapan bir altprogram verilmek- 
tedir. Eger A matrisi, boyutu n olan bir X vektörü ile sağ taraftan çarpılıy- 
orsa, sonuç bir vektördür. Bu sonuç vektöre R dersek, yani, RXA xX. çarpım 
vektörünün elemanları, 


n 
GE) ağa 
k—1 


ifadesinden hesaplanabilir. Bu işlemi gerçekleştiren bir altprogram da Program 
2'de verilmiştir. 

Dördüncü mertebeden bir lineer denklem sistemininin (4 x 4) matris for- 
mundaki eşdeğeri 


dı diz dı3 dış Tı Tı 
A2ı üdzz üz3 d34 221 jr: (13.1) 
431 133 d33 134 T3 r3 


da) da3 da3 daş Xa TA 
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veya aşağıdaki şekilde bir matris denklemi ile ifade etmek mümkündür. 


AX—R 
Burada A matrisi 4 x 4'lük bir kare matris, X uzunluğu 4 olan bilinmeyenlerden 
oluşan vektör ve R'de aynı uzunlukta olan sağ-taraf vektörüdür. 
Lineer denklem sistemlerinin çözümünde kullanılan metodlardan birisi de 
Kramer kuralıdır ve herhangi bir 7; için çözüm 


di det A; 
' detA 


ile verilir. Burada detA;, matrisin #.nci sütunu R vektörü ile değiştirilmiş 
matrisin determinantını ifade etmektedir. Lineer denklem sistemini (n xn 
için) Kramer metodu ile çözmek için yapılması gereken temel aritmetik işlem 
sayısı ni ile orantılıdır. Bu metodun bilgisayarlarda lineer denklem sistemini 
çözmede kullanılması, gerektirdiği işlem sayısı itibariyle pratik değildir; bu 
nedenle bilgisayarda daha az işlem gerektiren ve daha pratik olan metodlara 
değineceğiz. 


Program 1. Iki matrisin çarpımını yapan bir altprogram. 


100 REM --- C-AxB IŞLEMINI YAPAN ALTPROĞRAM 


110 REM -- BURADA A,B VE C, nxn BOYUTUNDA MATRISTIR. 
120 REM -- HER ÜÇ MATRIS ANA PROGRAMDA DIM DEYIMI 
130 REM -- ILE TANIMLANMALIDIR. 

140 REM -—-—-—-—-—-——————— 


150 FOR 1-1 TON 
160 FOR jJsi TON 


170 C(1,1)-0 

180 FOR K-s1 TON 

190 C(I,J)2C(I,J)4A(I,K)4#B(K,I) 
200 NEXT K 


210 NEXTJ,I 
220 RETURN 
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Program 2. Bir matris ile vektörün çarpımına ilişkin altprogram. 


100 REM --- R-AxX IŞLEMINI YAPAN ALTPROGRAM 

110 REM -- BURADA A, nxn'LIK BOYUTUNDA MATRIS, R VE X 
120 REM -- JSE BOYUTU n OLAN VEKTÖRLERDIR. BUNLAR ANA 
130 REM -- PROGRAMDA DIM DEYIMI ILE TANIMLANMALIDIR. 

140 REM ————————————— mmm mm 

150 FOR I-1 TON 

160 R(1)-0 

170 FORKsi TON 

180 R(I)R(I)#A(I,K)#R(K) 

190 NEXTK 

200 NEXT I 

210 RETURN 


Matris denklemi şeklinde verilen ifadeden hareketle eşitliğin iki tarafı A 
matrisinin tersi ile soldan çarpılınca çözümü, matris notasyonu ile, 


X—A“R 


şeklinde elde edilebilir. Fakat bu denklem sisteminin çözümü matrisin tersini 
hesaplamaya gerek kalmadan da yapılabilir ve bu metodlar bilgisayar zamanı 
açısından da daha verimli metodlardır. 


13.2 YOKETME METODLARI 


Lineer denklem sistemlerinin çözümleri ve ters matrisin bulunması işlemi için 
en sık kullanılan doğrudan çözüm metodlardır. Bu metodlar oldukça eski 


olmalarına rağmen sayısal hesaplarda en etkili ve pratik metodlardır. 


Aşağıda verilen dört bilinmeyenli dört denklemin matris formunu, denklem 
(13.1Y'i elealalım. Gauss yoketme metodu aslında satır işlemlerinden ibarettir. 


Önce birinci satır aşı ile bölünür: 


1 Gö; düş a, Tı ri 
Azı d33 d33 024 al...) a 
a31 A32 d33 d34 73 T3 
Aşı daz> d4a3 d44 v4 T4 


Burada (') ile gösterilen matris elemanları bu elemanların değiştiğini ifade 
etmektedir. Birinci denklem aş ile çarpılıp ikinci denklemden çıkartılır. 
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1 aş öz day fa) fr 
0 ay a a), rl) Jr 
d3ı d33 üz; d34 73 b T3 
daı da? da3 daş T4 Ta 


Birinci denklem şimdi aş, ile çarpılıp üçüncü denklemden daha sonra da aşj 
ile çarpılıp dördüncü denklemden çıkartılırsa, 


l aş, dış diş Ti rı 
O üz ün Ty |) |r; 
0 dg a, a) las) “İri 
Ü Ge m Üy T4 ri 


elde edilir. 

Aynı şekilde ikinci satır a), ile bölünür ve bu elemanın bulunduğu sütunda 
ve altındaki elemanlar benzer şekilde sıfırlanır. Böylece köşegen üstündeki 
elemanlar “1” yapılırken alt üçgensel kısım sıfırlanmış olur ve sonuç olarak 
denklem sistemimiz aşağıdaki şekli alır. 


/ ; , d 

Il âş; 4;3 dış Tı ri 
0D İİ öç ül -| Im 
7 / 

0 0 0 1 T4 ri 


Denklem (13.1) ile verilen sistemimizi bilinmeyenler için çözülebilecek bir şekile 
sokmuş oluyoruz. Gauss yoketme metodunda bilinmeyenleri en alttaki denk- 
lemden başlayarak en üstteki denkleme doğru ilerleyerek buluyoruz. En alttaki 
denklemden, 

Mi SR, 


üçüncü denklemden, 


/ / / / 
13 kaş,Tı —r, veya 13 2T3— 03,14 


ikinci denklemden, 
, , , ira e / a 
13 İ 43313 4 A3,74 — vr, Oo veya 7) Ta — daş13 — A)404 
son olarak ta birinci denklemden, 


/ ! / / / / / / 
Tı İ 4)313 4 4ş313 1 AşşT4 —r, veya Tı —Tj — dj 31) — dı313 — Aşa 


bulunur, 


Gauss-Jordan metodunda ise yoketme işlemi üst üçgensel kısım için de 
uygulanır. Bu durumda, 
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ı 0 0 0 TJ Ti 
ol 00 xl) İr; 
001 0))a1) lr 
000 1)/Nn ri 


nihai denklem sistemi elde edilir. Buradan denklem sisteminin çözümünün sağ 
taraf vektörü, yani 2; —rj, 5 —r), v5 —r3, ve v4 — rj; olduğu görülür. 

Gauss yoketme metodu için bir algoritma aşağıdaki şekilde verilmektedir. 
Bu algoritma da kullanılan ? — a(b)c şeklindeki gösterimin anlamı ; — a'dan 
cye kadar b'lik artırımları kastetmektedir. BASIC programlama dilinde FOR 
Izi TO C STEP B deyimine karşılık gelmektedir. 


1. A kare matrisi ve R sag taraf vektörü temin edilir. 


2. k — I(i)m'e kadar p — I fay; ve r, — rp * p hesaplandıktan sonra 3-6. 
aşamalar her £ için tekrarlanır. 


3.1 (k-#1)(I)n için aj; — ay; * p hesaplanır. 


4iz—(k4*1)1)n'e kadar 5-6 aşamalar her ? için tekrarlanır. 


Lİ 


.J 5 (k#1)(1)n'e kadar Gauss yoketme işlemi matris için jj — ajj — Giz * 
ay; ifadesinden hesaplanır. 


6. Sağ taraf vektörü ise yoketme sırasında r; — r; — aj, *r; ifadesi gereğince 
değiştirilir. 


7. Yoketme işlemi tamamlandıktan sonra &, nin çözümü x, —r, dir. 
8. 4 —(n—1)—I)('e kadar 9-71. aşamalar her k için tekrarlanır. 

9. Toplam—0 alınır. 
10. j—(k-41)(1)m'e kadar ToplamToplam*-a;; * x; ifadesi hesaplanır. 


11. k.ncı bilinmeyen x, — r,—Toplam formülünden hesaplanır. 
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Program 3. Gauss yoketme metodu ile rn bilinmeyenli n denklem sistemi- 
nin çözümünü yapan altprogram. 


100 REM (NXN) SEKLINDEKI LINEER DENKLEM SISTEMININ 
110 REM A(N,N) < DENKLEM SISTEMINI BELİRLEYEN MATRIS 
120 REM R(N) SAG TARAF VEKTORU 

130 REM X(N) BILINMEYENLER VEKTORU DUR. 

140 REM GAUSS-YOKETME METODU ILE COZUMUNU ICEREN BIR 
150 REM ALT PROGRAMDIR. 

160 REM 

170 DIM A(N,N) ,X(N) ,R(N) 

180 FOR Ksi TON 

190 P-1/A(K,K) 

200 R(K)SR(K)*P 

210 FOR I:(Kt1) TON 


220 A(K,I)-A(K,I)#P 

230 NEXTI 

240 FOR 1-(Kt1) TON 

250 FOR J2(K*1) TON 

260 ACI,I)-A(I,I)-A(I,K)*A(K,I) 
270 NEXT J 

280 R(I)-R(I)-AC(I,K)#R(K) 

290 NEXT 

300 NEXT K 


310 X(N)>R(N) 

320 FOR K-(N-1) TO 1 STEP (-1) 
330 Oo TOPLAM-O 

340 FOR J:(K*1) TON 

350 TOPLAM-TOPLAM*A(K,J)*X(J) 
360 NEXT J 

370 X(K)3R(K)-TOPLAM 

380 NEXT K 

390 RETURN 


Gauss-Jordan yoketme metodu için hazırlanabilecek herhangi bir algoritma 
Gauss yoketme metodun da gerçekleştirilen alt üçgensel matrisin sıfırlanması 
işlemini içerecektir. Bu nedenle algoritma da Gauss yoketme yöntemi için ve- 
rilen algoritmanın sadece 7-/1.ci aşamalarının aşağıdakı şekilde değiştirilmesi 
yeterli olacaktır. 


7. j—n(—1)2'e kadar &.nci aşama tekrarlanır. 
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8. Üst üçgensel matris sıfırlanırken sağ taraf vektörü 7 — (/— 1)(—I)1'e kadar 
ri Ti — aj; *r; şeklinde değiştirilir. 


9. Çözüm vektörü sağ taraf vektörüne eşittir ve / — 1(1)m'e kadar x; —r; 
alınır. 


Gauss-Jordan metodu için hazırlanan alt program Gauss yoketme metodu 
için verilen alt programda (Program 3) algoritma gereği yapılan değişiklikler 
burada verilmektedir. 


320 FOR JsN TO 2 STEP (-1) 

330 (FOR 1-(J-1) TO 1 STEP (-1) 
340 RCI)SR(I)-A(I,I)#R(I) 
350 NEXT J 

360 NEXT I 

370 FOR Izi TON 

380 X(I)-RCI) 

390 NEXT I 

400 RETURN 


13.3 TERS MATRİS HESABI 


Bir A kare matrisinin tersi eğer matris tekil değilse mevcuttur; yani, detA# 0. 
Matrisin tersini bulmak aynı lineer denklem sisteminin çözümüne benzemek- 
tedir. Buradaki tek fark sağ taraf vektörü yerine sağ tarafa birim matrisi yer- 
leştirerek Gauss-Jordan yoketme metodunun uygulanmasıdır. İşlem tamam- 
landığında sol tarafta birim matris oluşurken sağ tarafta (yani, birim matrisin 
bulunduğu yerde) matrisin tersi oluşur. Bu işlemleri açıklamak için A kare 
matrisini aynı boyutlu birim matris ile beraber aşağıdaki şekilde yazalım. 


Aşı dı A3 Aja Li 0 ü 0 
Azı dz2z A3 d34 O 1 0 0 
Azı A3) â33 A3 001 0 
Aşı dşz Gş3 daş 00 0 1 


Şimdi Gauss-Jordan yoketme işlemine başlıyalım. İlk önce birinci satırı aj, ile 
bölelim. 
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I üç e Gi bı 0 00 
Azı ây 43 a4 yy ii 0 0 
Azı A33 A3 d3ş 0 01 0 
Aşı dşz da3 daş o 0 01 


Daha sonra birinci sütundaki matrisin diğer elemanlarını sıfırlamak için birinci 
satırı sıfırlanacak satır elemanı ile çarpıp o satırdan çıkartalım. 


İ iş G3 dü bı 0 0 0 
Dü ös di ba 1 0 0 
0 az, A33 A3 ba 0 1 0 
Dü, öl. ba 0 0 1 


Bu işlem yapılır iken birim matrisin bulunduğu kısım da yoketme işleminin 
uygulandığı sütundaki elemanlar değişmektedir. Yoketme işlemi soldaki matris 
birim matris'e dönüşünceye kadar devam ettirildiğinde 


Il 0 0 0 bız bız bız bış 
010 0)lb1 ba bos boa 
001 0)lb1 boz biz baş 
üüğdi ba, baz biz baş 


elde edilir. Sağ tarafta oluşan ve elemanları ö;; ile verilen kare matris artık A 
matrisinin tersini oluşturmaktadır. 


Gauss-Jordan metodu ile ters matrisin bulunması için bir algoritma veril- 
mektedir. 


1. Programa A matrisi temin edilir. 
2. B birim matrisi ; — 1(1)n'e kadar b;; — 1 ve b;; — 0 alınarak oluşturulur. 


3. Jj 1(1)m'e kadar p — 1 (aj; alındıktan sonra her j için /-6.ncı aşamalar 
tekrarlanır. 


” 


4, A matrisinin köşegenleri “1” yapılırken birim matris ve ana matrisin 


j.nci satırlarındaki elemanlar £ — 1(1)n'e kadar 
bik — Dik *p ve jk — jk *p 


şeklinde değiştirilir. 


is 


.izl(i)me kadar T — a;; alındıktan sonra 6.ncı aşama her i için tekrar- 
lanır. 
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6. j.nci satırda yoketme işlemi uygulanırken hem A hem de birim matrisin 
elemanları & — 1(1)n'e kadar 


bi, — bi, — T* bik ve dik — Gi — T* Gijk 


şeklinde değiştirilir. 


Program 4. n.nci mertebeden bir kare matrisinin tersini Gauss-Jordan 


metodu ile hesaplayan altprogram. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
210 
280 
290 
300 
310 
320 
330 


REM -— (NXN) LIK BIR KARE MATRISIN GAUSS-JORDAN 
REM -- YOKETME METODU ILE TERSININ BULUNMASI 
REM — 
DIM A(N,N) ,B(N,N) 
FOR 1-1 TON 
B(I,1)z1 
NEXT I 
FOR J-i TON 
P-1/A(J,J) 
FOR Ks1i TON 
B(J,K)3B(J,K)*P 
A(I,K)3A(JI,K)#P 
NEXT K 
FOR Izi TON 
TSAÇI,I) 
IF (11) THEN 300 
FOR K-1 TON 
B(I,K)B(I,K)-T*B(J,K) 
ACI,K)A(I,K)-T#A(JI,K) 
NEXT K 
NEXT I 
NEXT J 
REM -- A MATRISININ TERSI ARTIK B MATRISIDIR. 
RETURN 


13.4 BİR BOYUTLU MATRİSLER 


İndisli değişkenler kullanırken, gerek tek boyutlu gerekse daha fazla boyutta, 
gereksiz bellek kullanımına gidilmemelidir. Örneğin bir programda kullanıla- 
cak indisli değişken boyutu, DIM deyiminde bildirilen, maksimum sınırı aşma- 


malıdır. 
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İki ve daha fazla indisli değişkenlerde, örneğin matrislerin tanımında, her 
hangi bir (i.j) değerine ulaşmak tek indisli bir (1) değerine ulaşmaktan daha 
fazla zaman gerektirir; bu durum bilgisayarın çok indisli değişkenleri bellekte 
tek indisli değişken gibi saklı tutmasından kaynaklanmaktadır; yani n xm bo- 
yutlu bir A matrisinin elemanları bellekte aşı. &z1...., nış dai, d99ş 0.1) Üdsma 
Anı. An33 « -.. Anm Sırasıyla saklanmaktadır. Matrisin herhangi bir elemanına er- 
işmek için bu tek sıranın nerede olduğu bulunduktan sonra o sıradaki bilgiye 
erişilir. 

Bu nedenle biz de matrisi n x m boyutunda tek indisli bir değişken olarak 
atarsak; yani 4;,.45,43...., &,. bu durumda k —/-(j —I)m şeklinde alındığı 
takdirde herhangi bir ;, j çiftiyle tanımlanan matris elemanı a;'yı verir. Burada 
k ile verilen ifade matrisin bellekteki diziliş sırasını vermektedir. 

Aşağıda boyutu n x n olan iki matris (A ve B)'nin programa okutulması 
ve çarpımını (Ax B) içeren bir program tek indisli değişkenler cinsinden veril- 
mektedir. 


RON SAY mekikli kkkinkrilziiinininininininininininininizii 
20 REM -- A,B MATRISINI DATA DEYIMINDEN OKU 

30 REM -- N'IN MAKSIMUM DEĞERİ 50 IÇIN 

40 REM sssassaasasauaamamumumamusanunmezmsms ise 
50 INPUT "N?",N 

60 N2-N*N 

70 DIM A(N2) ,B(N2) ,C(N2) 

80 REM ------ A VE B MATRISLERINI OKU >>>-2-------— 
90 FOR Ksi TO N2: INPUT A(K) : NEXT K 

100 FOR K-1 TO N2: INPUT B(K) : NEXT K 

110 REM 5>--- C - A x B'YI HESAPLA sssm-x22m-2m---— 
120 FOR Isi TON 

130 FOR Jsi TON 


140 K1-14(J-1)4N 

150 C(K1)-0 

160 FOR K-1 TON 

170 K2-14(K-1)4N 

180 K3-K4(7-1)*N 

190 C(K1)2C(K1)*4A(K2)4#B(K3) 

200 NEXT K 

210 NEXTİJJ,I 

220 REM ----- C'YI EKRANA YAZ zsxxxuxxxx---———————— 


230 FOR Izi TON 
240 FOR Jsi TON 
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250 PRINT C(14(J-1)4N); 
260 NEXT J: PRINT 

270 NEXT I 

280 END 


13.55 PROBLEMLER 


13.1 Aşağıdaki şekilde verilen Üç Köşegenli matris sistemini Gauss yoketme 
tekniği ile çözmek için (i) bir Algoritma hazırlayınız (Bu Algoritma sıfırlı ele- 
manlarla işlem yapmasın) (ti) Bir BASIC altprogramı yazınız. 


d, a, 0 0 ee 0 Tı cı 
b; da d35 0 ir 0 I3 C3 
0 b> de d3 sie 0 23 Ne C3 
0 0 is. Da Öy-i dn—i In—ı Cn—i 
0 0... 0 b, dr, Sa Cn 


13.2 Aşağıdaki şekilde verilen üç köşegenli matris sistemini Gauss yoketme 
tekniği ile 1.'deki soruda yazdığınız programı kullanarak çözünüz. 


di 9 0 0 & —0.5 
e 0 T3 —1.5 
NN m 0 za | |—15 
Er. m e 2g —1.5 
o Oi salaş 40.5 


(Bazılarının cevapları: x, — 6.4091, x; — 21.0456, xe — 16.2728) 
13.3 NxN boyutundaki bir A matrisinin simetrik olup olmadığını kontrol eden 
bir program yazınız. 


13.4 NxN boyutundaki bir A matrisinin transpoz'unu veren bir program 
yazınız. 


13.5 Bir A(N.N) matrisinin köşegeninin üstünde kalan elemanlarının ortala- 
masını veren bir program yazınız. 

13.6 Aşağıda verilen A ve B matrislerini (i) en genel şekilde (herhangi bir 
N değeri için) kuracak ve (ii) matrisleri kurduktan sonra çarpımını hesap- 
layacak (C—A xB) ve (ili) çarpım matrisini ekrana yazdıracak bir program 
yazınız. NOT: Program, matris çarpma işlemini yapmak için bir altprogram 
içermelidir. 
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1 1 
1 2 3 
ır? > e si ni 
A-lsı »s » .. m 
1N-i 9N-1 3N-I , Ni N: N-1 
1 0 0 0 0 
? ge 0 0 0 
iş gs p 0 0 
mili »p Pp # 0 
m gm42 gm43 ga , N pa 


Burada m — N(N — 1)/2'dir. 

13.7 DATA isimli bir kütükten sırasıyla matris boyutu N ve matrisin eleman- 
ları girilen (a;;) bir A matrisi için aşağıdaki şekilde tanımlanan matrisel işlemi 
yapan bir Fortran programı yazılmak isteniyor. Bu işlem yapılırken A? matri- 
sinin hesabını bir altprogram ile hesaplayıp sonuç D matrisini ekrana yazdıran 
programı yazınız. NOT: Burada I birim matrisi göstermektedir. 


DSİİ ARA 
a) 


13.8 DATA satırından sırasıyla N boyutlu bir A matrisinin önce boyutunu 
sonra elemanlarını okuyup, her satırını, o satırın mutlak değerce en büyük 
elemanının mutlak değerini alıp, bu değere bölerek oluşacak yeni matrisi veren 
bir program yazınız. 

13.9 n x n boyutlu A ve B matrislerini MATRIS isimli kütükten okuyan 
ve aşağıdaki işlemleri yapan bir program yazınız. Modüler programlamaya 
mümkün mertebe özen gösteriniz. 


AİxBxAXxB 


13.10 Yukarıdaki problemi, işlemleri tek indisli değişken kullanarak hesaplayan 
bir program yazınız. 

13.11 Bir A matrisinin elemanları için aşağıdaki ifadeyi hesaplayan bir prog- 
ram yazınız. Matrisin kare ve boyutunun n olduğunu varsayınız. 
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13.12 13.6.cı soruda verilen A ve B matrislerini esas alarak ve aşağıda verilen 
EM e Tİ 
z vektörünü kullanarak, aşağıdaki işlemleri yapan bir program yazınız. 
(A— B)r —Ir 


NOT: 1 matrisinin birim matris olduğuna dikkat ediniz. 

13.13 Bir A matrisinin elemanlarının 0 ila 2 arasında değiştiği biliniyor. Mat- 
risi bilgisayara DATA isimli kütükten okuyan, elemanları okudukça değerinin 
belirtilen aralıkta olup olmadığını kontrol eden; daha sonra elemanlarının or- 
talamasını ve standard sapmasını hesaplayan bir program yazınız. 


13.14 Bir matrisin her satırdaki elemanlarının mutlak değerce toplamını 
hesaplayıp, bu değerleri bir vektörün o satırdaki değerine atayan bir program 
yazımız. 

13.15 Aşağıda şekilde verilen A matrisini kuran ve bu matris için A? ve A» 
matrislerini hesaplayan ve A matrisi ile beraber ekrana yazan bir program 
yazınız. Not: Matris, DATA veya atama deyimleri şeklinde girilmeyecektir. 
Bir matrisin çıktısını veren bir altprogram hazırlayınız ve bunu kullanınız. 


I 2 3 1 5 
— | 2 3 1 
A—-|—3 —> | z 3 
—l —> —2 | 2 


— — —3 —2 —I 


1 5 
k 2 2 5 
A-l|ıI 3 5 
1 4 4 5 
Il 5 
Il 3 5 
l 3 
B—|—3 l 3 
—3 Il 
—ö —3 —I 


yine aşağıda verilen matris denklemini hesaplayan bir program yazınız. 


A-İx(B—A)x(A4B)xB 


Bolüm 14 


İNTEGRAL HESAP 


14.1 YAMUKLAR KURALI 


f(x) fonksiyonu a < x < b aralığında integre edilebilir bir fonksiyon olsun ve 
f(x) fonksiyonunun belirtilen aralıkta belirli integralinin hesaplanmasını arzu 
edelim. 


b 
is / fle)die 


Bu Ja. | aralığını genişliği 4 olan N eşit parçaya bölelim. Bu durumda aralık 
genişliği, h — (6— a)/N ifadesinden hesaplanır. 

Bu fonksiyon ve oluşturulan alt aralıklar Şekil 14.1'de verilmektedir. Şimdi 
Şekil 14.1'deki gibi sadece iki alt aralığı göz önüne alalım. Burada /;-1. /;. fişi 
noktaları birer doğru ile birleştirildiklerinde bu doğrular ile f(x) fonksiyonuna 
bir yaklaşımda bulunulmuş olup, doğrular /(<) için 2;., ile 2; ve a; ile ö5;5,1 
aralıklarında basit interpolasyon polinomları olarak hizmet ederler. Doğruların 
altında kalan alanları (yamukların alanlarını) hesaplarsak, 


i İHa)dr Rh (Eşi) 


yz” Hajdrxh ii 


ve 


1 


7; ile 2;xj aralığında fonksiyonun integrali bu iki yamuğun alanları toplamına 
eşittir. 


İ JHajda — k. Hajda $ bağ Hajde 


Tş—ı i 


Yukarıdaki denklemlerin yardımıyla integral aşağıdaki şekli alır. 
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fişi 


L;—1 Zi Lal g 


Şekil 14.1: 


Hajda <>(fi 2 fişi) 


E 
Sİ > 


zi 


Bu son denklemi bütün alt aralıklara uygularsak, genişletilmiş Yamuklar 
kuralı yaklaşımı, 


J Helle İK 2h 424 2 tf) 
veya seri toplamı şeklinde : 
b N—I 
| Fajda 3 (e #ht2X 4) 
olarak yazılabilir. Burada fo — f/(a) ve fx — f(b)'yi ifade etmektedir. 
ORNEK 1. Aşağıdaki integrali /0.1| aralığını 5 eşit parçaya bölerek ve 


Yamuklar Kuralı ile hesaplayınız. Bu integral değerini analıtık integral değeri 
ile karşılaştırınız. 


1 
| r(r? 4 3)İde 
0 


Çözüm: Bu integrali hesaplamak için ilk önce aralık genişliğini saptaya- 
lm. hk < (b— a)/N — 1/5 — 0.2 bulunur. Aralığın beş eşit parçaya bölün- 
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Tablo 14.1: Örnek | ile verilen problem için hazırlanan Tablo. 


KE A 


0.00000 — 0.00000 
2.61890 11.23780 
12.62180 2X3 25.24360 


22.1715986 2x): 45.519172 
38.582380 : 77.16560 


64.00000 64.00000 


J 
ŞE EA 


mesi sonunda altı nokta ve bu noktalara ait fonksiyon değerlerinin bilinmesi 
gereksinimi ortaya çıkar. 

Fonksiyonun değerlerini aralık içinde 0.2'lik artırımlar için hesaplayalım. 
Daha sonra, v;'ler ve f;'leri hesaplayalım. Hesaplanan bu değerleri Tablo | 
deki gibi bir tabloda toparlayalım. 

Tablo 1'de fonksiyon değerlerinin yanısıra son sütundaki değerleri de veril- 
miştir. Dolayısıyla son sütundaki toplam integral ifadesindeki köşeli parantez 
içinde yer alan ifadeye eşittir. Yani, 


4 
Ja fs 42X fi > 223.16672 


zl 


Daha sonra, bu değeri integral formülünde yerine koyarsak, 
: h > 0.2 Ml 
İntegral — 7(223.16672) — — (223.16672) — 22.316672 


bulunur. İntegralin gerçek değeri 21.875 olduğuna göre yapılan mutlak hata 
((21.875 — 22.316672)) 0.441672 dir. 

Buradaki aralık sayısını (yani N değerini) artırarak daha hassas integral 
değeri elde edilir; çünkü aralık sayısının artmasıyla oluşturulan yamukların 
sayısı artırılır. Bu da eğri altında kalan alanın daha gerçekçi hesabına neden 
olur. 

Aralık sayısı 10, 20, 50 ve 100 olarak alındığında hesaplanan integral değer- 
leri sırasıyla 21.9357, 21.9027, 21.8794 ve 21.8761 olmaktadır. Görüldüğü üzere 
aralık sayısının artmasıyla integral değeri gerçek değer olan 21.875 değerine 
yaklaşmaktadır. 
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Program 1. Yamuklar kuralı ile bir f(x) fonksiyonunun Ja, 4| aralığındaki 


belirli integralini hesaplayan BASIC Programı. 


10 REM -- YAMUKLAR KURALI ILE INTEGRAL HESABI YAPAN PROGRAMDIR. 
20 REM -- FNF(X) > INTEGRALI HESAPLANACAK FONKSIYON 


30 REM -- N - ESIT ARALIK SAYISI 
40 REM -- H - ARALIK GENISLİĞİ 
50 REM -- A,B - INTEGRAL SINIRLARI 
60 REM -- 


70 DEF FNF(X)-X*(X4#X43)73 
80 READ A,B,N 

90 DATA 0,1,5 

100 H-(B-A)/N 

110 T-0.5 * (FNF(A)*FNF(B)) 
120 FOR I-1 TO (N-1) 

130 OXsAtI#H 

140 oT:T*FNF(X) 

150 NEXT I 

160 TT*H 

170 PRINT "YAMUKLAR KURALI ILE INTEGRAL- "“;T 
180 END 


14.2 SİMPSON KURALI 


Simpson kuralı ile integral işleminde, her bir alt aralık bir doğru yerine o 
aralık için bir parabol ile birleştirilerek, parabol altında kalan alan hesap edilir. 
Bu kısımda simpson formülünün türetilmesinden ziyade sonucunu yazıp bunu 
kullanacağız. 


h N—I N—2 
ii: fot-İnN*t4N fit? > hi (2) 
tek iii 


Denklem (2) ile verilen bu formül Ja, 6| aralığını kapsar. Bu denklemin prog- 
ramlandığı bir program, Örnek 1 için hazırlanmıştır. Bu program, aritmetik 
deyim fonksiyonu değiştirilerek başka fonksiyonların integralinin hesaplan- 
masında, pekala, kullanılabilir. 

Program 2. Herhangi bir f(x) fonksiyonunun integralini Ja, b| aralığında 
belirli integralini hesaplayan BASIC Programı. 
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10 
15 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
190 
200 
210 
220 
230 
240 


Bu 


görülec 


REM - SIMPSON KURALI ILE INTEGRAL HESABI YAPAN 
REM BIR PROGRAMDIR... 
REM - FNF(X)< INTEGRALI HESAPLANACAK FONKSIYON 


REM - N - ARALIK SAYISI (N-ÇIFT OLMASI GEREKİR) 
REM - H - ARALIK GENIŞLIĞI 
REM - A,B > INTEGRAL SINIRLARI 
REM - 
DEF FNF(X)-X*(X4X43) “3 
READ A,B,N 
DATA 0,1,10 
H-(B-A)/N 
Ti-0 : T2-0 
UCSFNF(A)#FNF(B) 
FOR I-i TO (N-1) STEP 2 
X-A*I*#H 
TiSTİ#FNF(X) 
NEXT I 
FOR 1-2 TO (N-2) STEP 2 
X-A*I*H 
T2-T24FNF(X) 
NEXT I 


Tz0.3333333#H* (UC*4*T142*T2) 

PRINT "SIMPSON KURALI ILE INTEGRAL- ";T 

END 

program çalıştırıldığında N—6 için elde edilen değerin 21.8782 olduğu 


ektir. Bu değer yamuklar kuralı ile ve N—50 için hesaplanan değerden 


daha iyi bir sonuçtur. N—10 ve 20 için elde edilen integral değerleri sırasıyla 
21.87541 ve 21.87505 olmaktadır. N—20 için neredeyse analitik olarak hesa- 


planan 


Son 


değer hesaplanmaktadır. 


uç olarak integral hesabında Simpson metodunun Yamuklar metodun- 


dan daha hassas olduğunu söyleyebiliriz. 
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14.3 PROBLEMLER 


14.1 Aşağıdaki şekilde kesikli dağılımı verilen fonksiyonun integralini yamuklar 
kuralı ve Simpson kurallarına göre hesaplayınız. 


GEC EE HE EE HE EE 


14.2 Aşağıdaki şekilde kesikli dağılımı verilen fonksiyonun integralini, yamuk- 


lar Kuralı ve Simpson kurallarına göre integralini hesaplayan program yazınız. 


BESEN MEAN ME 
NEN EE EEE 


0.8 3 T 
(a) | e” dı (b) j In(5—4cosx)de 


14.4 Aşağıdaki şekilde verilen fonksiyonu herhangi bir x ve n değeri için 
hesaplamak istiyoruz. Bu integrali aralığı 20 eşit parçaya bölerek ve yamuklar 
kuralını kullanarak hesaplayan bir program yazınız. 


We. 2 sin/(n0 — x sin 4)d0 
x Jo 


14.5 Aşağıdaki integrali, integral sınır değerlerini sonlu olacak şekilde uygun 
bir dönüşüm yaptıktan sonra değişik aralık sayısı için yamuklar kuralını kul- 
lanarak hesaplayan bir program yazınız. 


ei 
J —1/2 di 
ini 
1 r 


14.6 Herhangi bir z değeri için Z yi hesaplayan bir program yazınız. U ile 
verilen serinin hesabında, serinin hata mertebesi 10-“den küçük olsun. Ayrıca 
V ile gösterilen integrali de Simpson kuralına göre aralığı 50 parçaya bölerek 
hesaplayınız. 
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, z > rr z* ge e 
U -—4—4—4— 71... SM —— 
gg'gigpt mİ” Mazi 


N > sini gp Yrr 
v-f, t “ o. UV 


14.7 Aşağıdaki şekilde verilen fonksiyonu belirtilen limitler için hesaplamak 
istiyoruz. Bu integrali, aralığı 100 eşit parçaya bölerek, Simpson kuralı ile 
hesaplayan bir program yazınız. 


1g 
14.8 Matematikte sıkça kullanılan bir fonksiyon da hata fonksiyonudur ve 
aşağıdaki integral ile tanımlıdır. 


9 5 - 
e) -—)/ eT'dT 
eri() xl € 


Herhangi bir değeri için hata fonksiyonunun; yani erf(x)'in, değerini he- 
saplayan bir program yazmak için (a) algoritma hazırlayınız, (b) akış şeması 
çiziniz ve (c) Fortran programı yazınız. İntegral yöntemi Yamuklar ve Simpson 
kurallarından birini seçebileceğimiz şekilde hazırlansın ve her bir yönteme göre 
integral hesaplayan altprogramlar oluşturulsun. 

14.9 Aşağıdaki integrali yamuklar kuralına göre herhangi bir M için hesapla- 
yan bir program yazınız. 


/ sec vdx 
7/8 İ- tan 


14.10 Bir elektrik devresinde belirli bir şekilde dalga şekli üretmek arzu 
edilir. Bir dalga şekli f/(4) aşağıdaki şekilde verilmiş olsun. 
(0) — 1 —50<1<50; 
kü; —100<1<—50, 50<1<100 


Dalga periyodu TÜnin 200 olduğu aşikardır. Dalga şekli Fourier serisinin 
ilk 10 terimi ile ifade edilmek istenmektedir. 


9 
J(0)xzaş*2 > a; cos(kwt). 


kz1 


burada w — 27/7 ve a; katsayıları da 


9 pTp 
yö 7) Hülclkuin bü. 
0 
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olarak verilmektedir. Yazacağınız bir altprogram aç, a,, ..., ag katsayılarını 
Simpson kuralı ile aralığı 100 eşit parçaya bölerek hesaplasın. 

14.11 Yukarıdaki problemde herhangi bir # anında (4) dalga şeklinin değerini 
Fourier serisi ile hesaplayan ve analitik olarak verilen değerlerini ve aralarındaki 


farkı hesaplayıp, ekrana yazdıran bir program yazınız. 


Bölüm 15 


KOMPLEKS ANALİZ 


BASIC de kompleks sayılarla yapılan tüm işlemler tanımlı değildir. Bu nedenle 
kompleks sayılarla işlem yapılmak istendiğinde, bu işlemlerin ayrıntılı olarak 
tanımlanması gerekir. 

Kompleks sayılar 2 — a 4 7b şeklinde belirlenen bir gerçek (4) ve bir de 
sanal (6) kısımdan oluşan sayı çiftidir; burada i > y—I. İki kompleks sayı 
Tı za; ib, ve zi; <a; ib, ele alındığında, 


Toplama ve Çıkarma işlemi, 7 kz) (aş kaş) *tilbı kb) 


Çarpma işlemi, —iy)*73 —(aşsaş— bı sb) ilaşsb; 4 bj aş) 


- 5 . 21 âşsaş bı b; bı sa3— b; dj 
Bölme işlemi, e m ie — e — 
23 a5 *t b5 d35 * b5 
z'nin eşleniği, Z—a—ib 


olarak tanımlanmaktadır. Ayrıca bir kompleks sayıyı kutupsal şekilde tanım- 
lamak mümkündür. Yani 


7 — re — r|cos4 isin 0) 


şeklinde de belirtilebilir. Burada 4 kompleks sayının z-ekseni ile saat yönünün 
tersi yönde yaptığı açıdır ve 0—arg(z) olarak da yazılır ve 4—arctan(b/a) ile 
hesaplanır; yalnız (4,b) çiftinin x-y kartezyen sistemde hangi bölgeye denk 
geldiğini bilmek önemlidir; diğer taraftan, r ise büyüklük olup r — |z| — 


Va? 4 b şeklinde verilmektedir. 
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Bir kompleks sayının açısını (argümanını) hesaplarken şunlara dikkat etmek 
gereklidir: 


arctan(b/a). eğer a.b>0 ise (Birinci Bölge) 

7x #arctan(b/a), eğera<0, b>0 ise (İkinci Bölge) 

x 4 arctan(b/a), o eğer a,b<0 ise (Üçüncü Bölge) 

2x -arctan(b/a). eğer a>0, b<0 ise (Dördüncü Bölge) 


Herhangi bir kompleks sayının büyüklüğünü ve argümanını veren bir prog- 
ram aşağıda verilmektedir: 


05 PI-4*ATN(1) 

10 INPUT A,B 

20 REM -- ARGUÜMANIN BULUNMASI 

25 ATAN-ATN(B/A) 

30 IF A>-0 AND B>-0 THEN TETASATAN 

40 IF A<-0 AND B>-0 THEN TETAZPISATAN 
50 IF A<-0 AND B<-0 THEN TETA-PI*ATAN 
60 IF A>-0 AND B<O THEN TETA-2#PItATAN 
70 R-SOR(A*A*B*B) 

80 PRINT R, TETA 

90 END 


Örneğin iki kompleks sayı arasında toplama, çıkarma, çarpma ve bölme 
işlemi yapan ve ekrana yazdıran program verilmektedir. Bu program 


74 <1—3i 23 4-431 


kompleks sayılarını üzerinde test etmektedir. Buna göre 


100 READ A1,Bi,A2,B2 
105 ARTI$—"4"; T$"j" 

110 ZASA11A2 : ZB-Bİ4B2 

120 PRINT "Z14Z2-";ZA;ARTI$;"(";ZB;")";1$ 
130 ZASA1*A2-B1*B2: ZB-A1*B21A2*B1 

140 PRINT "Z1x72-";ZA;ARTI$;"(";ZB;")"“;I$ 
150 PAYDA-A2*A21B2*B2 

160 ZA-(A14A24B1*B2) /PAYDA 

170 ZB-(B1*A2-B2*A1) /PAYDA 

180 PRINT "Z1/Z2-";ZA;ARTI$;"(";ZB;")";1$ 
190 END 

200 DATA 1,-3,4,3 


BE 
© 
izi 


RUN 

Z1422- 5 *( 0)i 
Z1x22- 13 *(-9)i 
Z1/72--.2 4(-.6 )i 
Ok 


elde edilir. Programda gerçek ve sanal kısımlar tanımlanmış ve bu kısımlar 
üzerinde ayrı ayrı işlemler yapılmıştır. 

ÖRNEK 1: Aşağıdaki şekilde verilen bir kompleks serinin toplamını veren 
program yazınız. Bu serinin toplamında kıstas olarak |z,| < e ifadesini kul- 
lanınız. 


13 “AN 
(1 0) 
Yy — — 


! 
ER n. 


Bu toplam 


142 1 4i)? 141) 
ki m i ( 5 Şİ — ile ör 
olarak açıldığında, serinin ilk iki teriminin toplamının 2 4 4 olduğu görülür. 
Bu durumda programda gerçek kısımların toplamını hesaplarken, gerçek kısmı 
TA—? alabiliriz. Aynı şekilde de sanal kısım için TB—I şeklinde yazılabilir. 
Bundan sonra çarpım işlemlerinin bir alt programda yapılabilmesi mümkün 


olur. 


100 ARTI$-"4": T$'i 

101 REM -- F: FAKTORIYEL 

105 A1-1 : A2-1 : Bizi : B2-1 
110 Fz1 : Nzi : TA-2 :TB-İ 

115 NeN#1 

120 F3F#N 

130 GOSUB 200 

135 A2-ZA: B2-2B 

140 TA-TAYZA/F : TB-TB*tZB/F 

150 IF N-13 THEN 160 ELSE 115 
160 PRINT TA;ARTI$;"(";TB;")";1$ 
170 END 

200 REM -- ÇARPMA IŞLEMINI YAPAN ALTPROGRAM 
250 ZA-A1*A2-B14B2 

260 ZB-A1*B24A24B1 

270 RETURN 
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RUN 
1.468694 *( 2.287344 )i 


olarak bulunur. 


ÖRNEK 2: İki kompleks matrisin toplamını veren bir program yazınız ve 
örnek olarak aşağıdaki iki kompleks matrisi için deneyiniz. 


1-23 —i—ij 31 —1—37 145 4431 
A—|—441ı 342 —145), B—|(—24-X 8—6: hi 
3— 47 U 1 —& 341 —3— 


Bu örnekte program yazarken matrislerimizi üc indisli olarak tanımlamak 
durumdunda kalmaktayız. Çünkü a; ; elemanı sadece bir tek sayıyı ifade et- 
mektedir. Fakat bir kompleks sayının hem sanal hem de gerçek bileşeni oldu- 
gunu göz önüne aldığımızda, her matris elemanının iki bileşeni olması gerektiği 
ortaya çıkar. Yani kompleks elemanın gerçek kısmı a; jı ve sanal kısmı Ga; ;2. 


yi 


Bu nedenle matrisleri DIM A(N.N.2) şeklinde tanımlamaktayız. 


100 N-3 
110 DIM A(N,N,2) ,B(N,N,2) ,C(N,N,2) 

120 ARTI$—"4"; 1$—"i1“;B0Ş$—" © 

130 FOR I-1i TO N: FOR J-i TON 

140 READ A(1,1J,1),A(1,7,2) 

150 NEXT J,I 

160 FOR 1-1 TO N: FOR J-i TON 

170 READ B(I,1J,1) ,B(1,17,2) 

180 NEXT J,I 

190 GOSUB 500 

200 PRINT "MATRISLERIN TOPLAMI" : PRINT 

210 FOR I-1 TO N: FOR Jsi TON 

220 PRINT C(I,1,1) ;ARTI$;"(";C(I,3,2)5;")";1$;BOS$; 
230 NEXT J :PRINT : NEXT I: PRINT 

240 GOSUB 600 

250 PRINT "MATRISLERIN ÇARPIMI" : PRINT 

260 FOR Izi TO N: FOR Ji TON 

270 PRINT C(1I,J,1);ARTI$;"(";C(I,I,2);")";1I$;BOS$; 
280 NEXT J :PRINT : NEXT I: PRINT 

290 END 

300 DATA 1,2,-1,-1,0,3,-4,1,3,2,-1,5,3,-4,0,1,-1,0 
310 DATA -1,-3,1,5,4,3,-2,3,8,-6,0,4,-1,6,3,1,-3,-7 


500 
501 
502 
503 
504 
505 
510 
520 
530 
540 
550 
600 
605 
610 
615 
620 
625 
630 
635 
640 
645 
650 
655 
660 
665 
670 
675 
800 
850 
860 
870 
900 
910 
920 
RUN 


REM -- A ve B KOMPLEKS MATRISLERININ TOPLAMINI 
REM VEREN ALTPROGRAMDIR. 

REM --BURADA ÖRNEĞİN, A(I,J,1) MATRISIN (1,J).CI 
REM ELEMANININ GERÇEK KISMI, A(1,1,2) ISE SANAL 
REM KISMINI BELİRTMEKTEDİR. C-A4B 

REM 

FOR I-i TON : FOR J-i TON 
C(I,I,1)sA(I,1I,1)4B(1I,1,1) 
C(I,I,2)-A(1,1,2)4B(1,1,2) 

NEXT J: NEXT I 

RETURN 

REM -- A ve B KOMPLEKS MATRISLERININ ÇARPIMINI 
REM VEREN ALTPROGRAMDIR. CsAxB 

REM 

FOR 1-1 TO N: FOR Jsi TON 

CG(I,1,1)-0: C(I,71,2)0 

FOR K-i TON 

AisAÇI,K,1) : BizA(I,K,2) 

A2-B(K,J,1) : B2-B(K,IJ,2) 

GOSUB 800 

Ai-G(I,i,1):3 B126(1,3,2) 

A2-ZA : B2-2B 

GOSUB 900 

G(I,1,1)sZA: G(I,I,2):7B 

NEXT K 

NEXT J,I 

RETURN 

REM -- IKI K. SAYIYI ÇARPAN ALTPROGRAM 
ZA-A1*A2-B1XB2 

ZB-Aİ*B24A24B1 

RETURN 

REM -- IKI K. SAYIYI TOPLAYAN ALTPROGRAM 
ZA-A14A2 : ZB-B14B2 

RETURN 


MATRISLERIN TOPLAMI 


O *(-1)i 04(4)i 4*4(6)i 
-6 *( 4)i 11 *(-4)i -1 *( 9)i 
24(2)i 3 4(2)i -4 *(-7)i 


DU 


— 
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MATRISLERIN ÇARPIMI 


-8 *(-9 )i -26 *( 14)i 23 *(-2)i 
-34 *( 5)i 19 4(-7)i 11 #(-4)i 
-17 *(-13)i 26 *( 18)i 23 4(0)i 
Ok 


ORNEK 3: Bir n x n bilinmeyenli kompleks lineer denklem sistem- 
im çözmek için bir altprogram yazınız ve aşağıdaki şekilde verilen sistemin 
çözümünü bulunuz. 


kA —1I—j 31 —1—3 
A—|—4457 3429 —145i), R — 1457 
3—4; i —l 4-31 


ve denklem sisteminin 
AX—R 
şeklinde verildiği kabul edilmektedir. 

Burada uygulanan çözüm tekniği Matrisler Bölümünde anlatılan Gauss- 
Jordan yoketme tekniğidir. Sadece çarpma, toplama ve bölme işlemleri komp- 
leks sayılar ile yapılmaktadır. Bu programı daha iyi kavramak için Gerçek 
lineer denklem sistemlerine uygulanan Gauss-Jordan programı ile kıyaslayınız. 


10 N-3 

20 DIM A(N,N,2) ,R(N,2) ,X(N,2) 

30 ARTI$-"#"; 1$-"i“;B0S$—" " 

40 FOR Izi TO N: FOR J-i TON 

50 READ A(1,1,1),A(1I,1J,2) 

60 NEXT J,I 

70 FOR 1-1 TO N: READ R(I,1) ,R(1,2): NEXT I 

80 GOSUB 160 

90 PRINT "DENKLEM SISTEMININ ÇÖZÜMÜ" : PRINT 

100 FOR I-i TON 

110 PRINT X(I,1);ARTI$;"(";X(I,2);")";1$;BOS$ 

120 NEXT I 

130 DATA 1,2,-1,-1,0,3,-4,1,3,2,-1,5,3,-4,0,1,-1,0 
140 DATA -1,-3,1,5,4,3,-2,3,8,-6,0,4,-1,6,3,1,-3,-7 
150 END 

160 REM (NXN) ŞEKLINDEKI LINEER DENKLEM SISTEMININ 
170 REM ÇÖZÜMÜNÜ VEREN ALTPROGRAM. A(N,N,2)-DENKLEM 


180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
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REM SISTEMINI BELİRLEYEN KOMPLEKS MATRIS, R(N,2): 
REM SAĞ TARAF VEKTÖRÜ, X(N,2)-BILINMEYENLER VEKTÖRÜ. 
REM GAUSS-JORDAN YOKETME METODU ILE ÇÖZÜMÜ IÇEREN 
REM BIR ALTPROGRAMDIR. 

REM 

FOR K-i TON 

A1-1: B1-0 

A2-A(K,K,1): B2-A(K,K,2) 
GOSUB 690 

Ai-ZA: B1-ZB: PA-A1: PB-Bİ 
A2-R(K,1): B2-R(K,2) 

GOSUB 640 

R(K,1)-ZA: R(K,2)-ZB 

FOR I-(K*1) TON 

AizPA: BizPB 

A2-A(K,1I,1): B2-A(K,1,2) 
GOSUB 640 

A(K,I,1)sZA: A(K,I,2)5ZB 
NEXT I 

FOR 1I2(K*1) TON 

FOR J-(K*1) TON 
AizA(I,K,1): BisA(I,K,2) 
A2-A(K,J,1): B2-A(K,I,2) 
GOSUB 640 
A(I,I,1)-A(I,I,1)-ZA 
A(I,1I,2)-A(1,1,2)-ZB 

NEXT J 

Al-A(ÇI,K,1): Bi-A(I,K,2) 
A2-R(K,1) : B2>R(K,2) 
GOSUB 640 

R(I,1)-R(I,1)-ZA 
R(I,2)-R(I,2)-2B 

NEXT I 

NEXT K 

FOR J-N TO 2 STEP (-1) 

FOR 1-(1-1) TO i STEP (-1) 
Al-A(I,J,1) : B1sA(1,7,2) 


A2-R(J,1) : B2-R(J,2) 
GOSUB 640 
RKI,1)-R(I,1)-2ZA 
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580 R(I,2)-R(I,2)-ZB 

590 NEXT I,J 

600 FOR I-i TON 

610 X(I,1)-R(I,1): X(I,2)-R(1,2) 

620 NEXT I 

630 RETURN 

640 REM -- IKI K. SAYIYI ÇARPAN ALTPROGRAM 
650 ZA-A1*A2-B14B2 

660 ZB-A1*B24A24B1 

670 RETURN 

680 REM -- IKI K. SAYIYI BÖLEN ALTPROGRAM 
690 PAYDA-A2*A24B24B2 

700 ZA-(A1*A24B14B2) /PAYDA 

710 ZB-(B1*A2-B2*A1) /PAYDA 

720 RETURN 

RUN 

DENKLEM SISTEMININ ÇÖZÜMÜ 


.5568422 *( .9549498 )i 
2.145742 *( 1.848468 )i 
-.3581416 *(-.2167773 )i 
Ok 


15.1 PROBLEMLER 


15.1 Herhangi bir kompleks sayının n.ci dereceden kuvvetini De Moivre for- 
mülü uyarınca hesaplayan bir program yazınız. De Moivre formülü 


r(cos4 - isin 0) ye r“(cosn0-isinnd) 


olarak verilmektedir. 
15.2 Herhangi n Xx n boyutlu bir A kompleks matrisinin tersini Gauss-Jordan 
metodu ile hesaplayan bir program yazınız. 


15.3 Herhangi bir matrisin tersini ve kendisini sağ taraftan veya sol taraftan 
çarparak birim matrisin verip vermediğini kontrol eden bir program yazınız. 


15.4 Bir z — a * ib kompleks sayısının doğal logaritmasını hesaplayan bir 
altprogram yazınız. NOT: Burada a,b # 0 için 


In(a *7b) —InvVa?2--b2 410 
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15.5 Bir z— a4 ib kompleks sayısının üstel değerini, yani w — e, hesaplayan 
bir alt program yazınız. NOT; 


€ —explasib) —e (c0s(b) * isin(b)) 


15.6 Bir z — a 4 7b kompleks sayısının trigonometrik değerlerini hesaplayan 
birer altprogram yazınız. NOT: 


cos(a * 2b) — cosfa) cosh(b) — zsin(a) sinh(b) 


sin(a -- ib) — sin(a) cosh(b) 4 7 cos(a) sinh(b) 
tan/a 4 ?b) — sin(a 4 7b)/ cosla 4 zb) 
sec(a $ ib) — 1/cos(a * ib) 


formülleriyle yapılan işlemin sonuçlarını kontrol ediniz. 

15.7 ar? br -4c— 0 ile verilen ikinci dereceden denklemin köklerini bulmak 
için en genel bir program yazınız. 

15.8 Katsayıları, a, b ve c, birer kompleks sayı olan ikinci dereceden denklemin 
kompleks köklerini hesaplayan bir altprogram yazınız. Not: 


yar kiy— VEleos(2) * isin(Ş) 


pe) 


Burada r — Vr? 4 y? ve0—tan-'(y/x) olarak alınacaktır. 
15.9 Aşağıdaki integralleri yamuklar ve Simpson kuralı ile hesaplayan bir prog- 
ram yazınız. 


—ı$i 3—2i 
(a) # sin zdz, (b) ed: 
1 0 


—2 


143: Zi | 
(c) J cos 7? de, (d) J esinzdJ. 


Eğ —i 
15.10 Aşağıdaki seri ifadeleri hesaplayan bir program yazınız. Programı dur- 


durma kriteri olarak |2,,,| < € kullanınız. Unutmayınız ki burada kullanılan 
mutlak değer ifadesi kompleks sayının büyüklüğüdür. 


(1424) o. (gi 
nz0 : n—0 
fee (3n 0 — ıp 00 (44 yes 
(e) 2 DE TN 2 on - 1 
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15.11 Aşağıdaki seri ifadeleri dısarıdan temin edilen herhangi bir z kompleks 
sayısı için hesaplayan bir program yazınız. Programı durdurma kriteri olarak 
aynı mantıktan hareket ediniz. 


“ 2x e e—g lom 
(a) Yin (5) w yE — 

nz0 n—0 dl 

.. z(3n — 1) an > n 
(e) > 3"(3n — 1)N (d) İz ge 


15.12 Birn xn A kompleks matrisi için, sinA değerini Taylor serisi açılımı 
yardımıyla hesaplayan bir program yazınız. Taylor serisi 
Hey, İ yi 
snA xA——A'4—A'4... 
3! 5! 
olarak veriliyor. Programda yakınsama kriteri olarak n.ci terim için 
1 


2n-4-1 
Be lde 


kriterini kullanınız. 


KAYNAKLAR 


(1) B. 5S. GOTTFRIED, 'Programming with BASIC', Sehaum's Outline Se- 
ries, McGraw-Hill Book Company (1975). 


2) F. KESKİNEL ve H. F. KARADOĞAN, "Açıklamalı Örneklerle BASIC 
Programlama Dili” (Uçüncü Baskı), Birsen Yayınevi (1988). 


3) F. R. RUCKDESCHEL, ”BASIC Scientific Subroutines, Volume TI”, 
BYTE/MeGRAW HILL Co., Peterborough NH. 


(4) F. SCHEID, "Theory and Problems of Computers and Programming”, 
Sehaum's Outline Series, MeGraw-Hill Book Company (1982). 


(5) G. B. DAVIS ve T. R. HOFFMANN, FORTRAN A Structured, Disci- 
plined Style”, MeGraw-Hill Book Company (1978). 


(6) G. J. BORSE, 'FORTRAN 77 and Numerical Methods For Engineers, 
PWS Publishers, (1985). 


TİJ. M. McCORMICK ve M. G. SALVADORI, 'Numerical Methods in 
FORTRAN", Pretice-Hall International, Inc., (1968). 


(8) M. ABRAMOWTTZ ve 1. STEGUN., Handbook of Mathematical Func- 
tilons', Washington D. C., U.S Governmant Printing Office, 1964. 


(9) Microsoft GW-BASIC User Guide, 1987. 


(10) R. J. COPE, F. SAWKO veR. G. TICKELL, 'Computer Methods For 
Civil Engineers', MeGraw-Hill Book Company (U.K) Limited, (1982). 


(11) R. J. RICE, 'Numerical Methods, Software and Analysis', McGraw Hill 
Book Company, New York, 1983. 


(12) S5. 5. KUO, Computer Applications of Numerical Methods? Addison- 
Wesley Publishing Company (1972). 


214 
HATA KODLARI VE MESAJLARI 


Kod Mesajlar 


1 NEXT without FOR 
FOR deyimi olmadan NEXT deyiminin olduğunu belirtir. FOR deyi- 
mindeki değişkeni NEXT deyimindeki değişken ile karşılaştırınız. 
2 Syntax error 
Yanlış yazılmış bir satır olduğunu (eksik parantez, yanlış yazılımış komut 
veya deyim, yanlış noktalama v.s. gibi). Bu hata GW-BASIC'in edit 
modunda hatalı satırı göstermesine sebeb olur. 
3 RETURN without GOSUB 
Daha önce olması gereken GOSUB deyimi olmadan bir RETURN deyimi 
olduğunu gösterir. 
4 Out of DATA 
Program içindeki tüm DATA satırlarının okunduğu halde yeni bir READ 
deyiminin işleme girdiğini gösterir. 
5 Illegal function call 
Matematik veya String fonksiyonunun geçerli olmadığı bir tanım aralığını 
veri olarak girildiğini gösterir. Ayrıca, 
e negatif veya çok büyük indis, 
e negatif veya sıfır olan bir sayının LOG değerini hesaplamak. 
e negatif bir sayının karekökünü almak, 


e negatif bir sayının tamsayı olmayan bir sayı ile üssünü almak 
gibi işlemler sırasında da bu hata mesajı verilir. 


6 Overflow 


Hesaplama sonunda GW-BASIC sayı gösterim formatının yazabileceğin- 
den daha büyük bir sayının elde edildiğini belirtir. Eğer underflow elde 
edilmişse sonuç sıfır eşitlenerek işleme devam edilir. 


7 Out of memory 


Çağırılan programın hafıza için çok büyük, içinde fazla miktarda FOR 
döngüleri, GOSUB değişkenleri veya yazılan ifadelerin çok karmaşık 


10 


11 


12 


13 


14 


15 


215 


olduğu belirtir. Daha fazla hafıza yeri ayırmak için CLEAR deyimi kul- 
lanılır. 

Undefined line number 

GOTO, GOSUB, IF-THEN-ELSE veya DELETE.... deyimlerinde prog- 
ramda varolmayan satır numarası kullanıldığını belirtir. 

Subseript out of range 

Boyutlandırılmış bir değişkene, ya daha önce belirtilmiş indislerinin 
dışında bir indis ya da yanlış sayıda indis verildiği durumlarda bu hata 
mesajı verilir. 

Duplicate definition 

Aynı değişken için iki DIM deyimi kullanıldığı veya bir değişken için stan- 
dart 10 boyutu ayrıldığı halde sonradan DIM deyiminde tekrar boyut- 
landırılması durumlarında bu hata mesajı verilir. 

Division by zero 

Bir matematiksel ifadede veya işlemde sıfıra bölünme ile karşılaşıldığında 
bu mesaj verilir. Bilgisayar uygun sonsuzluk işareti vererek işleme devam 
eder. 

Illegal direct 

Direkt modda geçersiz olan bir cümlenin direkt mod komutu olarak gir- 
ildiğini gösterir. 

Type mismatch 

Bir string (alfasayısal) değişkene sayısal bir değerin atanması veya bunun 
tersi; sayısal bir argümant bekleyen bir fonksiyona alfasayısal bir argü- 
mant girilmesi veya bunun tersi durumunda bu mesaj gelir. 

Out of string space 

Alfasayısal değişkenlerin GW-BASIC in hafıza kapasitesini aşdığını gös- 
terir. 

String too long 


255 karakterden daha uzun bir alfasayısal değişken girmeğe çalışıldığını 
gösterir. 


216 


16 


17 


18 


19 


20 


21 


22 


23 


24 


String formula too complex 
Alfasayısal bir ifadenin çok uzun veya çok karmaşık olduğunu gösterir. 
Bu durumda ifadenin daha küçük parçalara bölünmesi gerekir. 
Can't continue 
Aşağıda belirtilen durumlarda programın çalıştırmasına devam edilmesi 
halinde bu mesaj gelir: 

e bir hatadan dolayı durması durumunda, 


e çalıştırmaya ara verildiği zaman programda bir değişikliğin yapıl- 
ması, 


e çalıştırılması istenen programın hafızada olmaması. 


Undefined user function 

DEF FN deyimi ile daha önce tanımlamayan bir kullanıcı fonksiyonunun 
(USR) çağırılması durumunda bu mesaj gelir. 

No RESUME 

RESUME deyimi olmaksızın hata-bulma satırlarının (rutinleri) prog- 
rama konulduğunu gösterir. 

RESUME without error 

Programda hata-bulma kısımı kullanılmadığı halde RESUME deyiminin 
kullanıldığını gösterir. 

ÜUnprintable error 

Karşılaşılan hata durumu için hata mesajının olmadığını göşterir. Bu 
durum genellikle tanımlanmamış hata kodlu hatalarda ortaya çıkar. 
Missing operand 

Operatör içeren bir ifadede karşılaştırılacak değişkenlerin olmadığını gös- 
terir. 

Line buffer overflow 

Bir satırın kapasitesinden fazla karakterin girilmesi durumunda bu mesaj 
gelir. 

Device timeout 


GW-BASIC'in bir 1/0 (girdi/çıktı) cihazından daha önceden belirlenmiş 


bir süre içinde cevap alamaması durumunda bu mesaj gelir. 


25 


26 


27 


28 


29 


30 


Device fault 

Yazıcıda veya arabirim kartında meydana gelen bir donanım hatasını 
belirtir. 

FOR without NEXT 

NEXT deyimi olmadan FOR deyiminin olduğunu belirtir. NEXT deyi- 
mindeki değişkeni FOR deyimindeki değişken ile karşılaştırınız. 

Out of paper 

Bu durumda ya yazıcıda kağıt yoktur ya da yazıcıda bir donanım hatası 
vardır. 

Unprintable error 

Karşılaşılan hata durumu için hata mesajının olmadığını göşterir. Bu 
durum genellikle tanımlanmamış hata kodlu hatalarda ortaya çıkar. 
WHILE without WEND 

Bir WHİLE deyiminin uygun bir WEND deyimine sahip olmadığını gös- 
terir. 

WEND without WHILE 


Bir WEND deyiminin uygun bir WHILE deyimine sahip olmadığını gös- 
terir. 


31-49 Unprintable error 
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Karşılaşılan hata durumu için hata mesajının olmadığını göşterir. Bu 
durum genellikle tanımlanmamış hata kodlu hatalarda ortaya çıkar. 
FIELD overflow 

FIELD deyimi ile, rasgele kütüğü için ayrılmış olan kayıt uzunluğundan 
daha fazla byte ayrılmasına çalışıldığı durumda bu mesaj gelir. 
İnternal error 


GW-BASIC'in içinde bir hatanın meydana geldiğini gösterir. Bunun 
olması durumunda GW-BASIC programının kontrol edilmesi ya da bu 
programın alındığı yere başvurulması gerekir. 


Bad file number 

Program içinde açık olmayan bir kütüğün numarasını bir deyimde veya 
satırda belirtildiği ya da başta belirtilen kütük numaralarının dışına 
çıkıldığı durumlarda bu mesaj gelir. 
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File not found 
Programın bulunduğu diskette veya yerde LOAD, KILL, NAME, FILES 
veya OPEN deyimleri ile çağırılan bir kütüğün bulunamadığını gösterir. 
Bad file mode 


Sıralı bir kütükle PUT, GET veya LOF deyimlerinin kullanıldığı; bir 
rasgele kütüğü yüklendiği (LOAD) ya da bir kütük modu olan I,O,A 
veya R seçeneklerinden başka bir modla OPEN deyiminin çalıştırıldığı 
durumlarda bu mesaj gelir. 


File already open 

Hali hazırda açık olan bir kütüğün adında Sıralı çıktı modunda OPEN 
deyiminin çalıştırıldığını gösterir. 

Ünprintable error 

Karşılaşılan hata durumu için hata mesajının olmadığını göşterir. Bu 
durum genellikle tanımlanmamış hata kodlu hatalarda ortaya çıkar. 
Device 1/O Error 


Genellikle disket 1/0 (girdi/çıktı) hatasında bu mesaj gelmesine rağmen 
diğer bütün cihazların 1/0 hatasında da bu mesaj gelir. Bu durum işle- 
tim sisteminin durmasına sebeb olur. 


File already exits 


NAME deyimi ile belirtilen kütük adı, kullanımda olan diskette var olan 
başka bir kütüğün adı olduğunu gösterir. 


59-60 Unprintable error 
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Karşılaşılan hata durumu için hata mesajının olmadığını göşterir. Bu 
durum genellikle tanımlanmamış hata kodlu hatalarda ortaya çıkar. 
Disk full 


Kullanımda olan disk veya disketin tamamen dolu olduğunu belirtir. 


Input past end 


Programdaki bütün verilerin girilmesinden sonra veya boş bir kütüğün 
yeni bir INPUT deyimi ile girilmeye denendiğini gösterir. Bu hatanın 
önlenmesi için, kütüğün sonunu belirlemek amacıyla EOF fonksiyonu 
kullanılmalıdır. 
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Bad record number 


Bir PUT veya GET deyimindeki kayıt sayısı ya müsade edilen maksimum 


dedi 


değerden (16,777,215) büyük ya da sıfıra eşit olduğunu gösterir. 


Bad filename 


LOAD, SAVE, KILL veya OPEN deyimlerinde kütük adı olarak geçersiz 
bir ad kullanıldığını gösterir. Orneğin, kütük adında izin verilenden fazla 
karakter olabilir. 


Unprintable error 


Karşılaşılan hata durumu için hata mesajının olmadığını göşterir. Bu 
durum genellikle tanımlanmamış hata kodlu hatalarda ortaya çıkar. 


Direct statement infile 


ASCTIL-formatlı bir kütüğü yüklerken deyim geçerli bir deyim olmayan bir 
satırla karşılaşıldığını gösterir. Bu durumda LOAD işlemi iptal edilir. 


Too many files 


Bütün direktörler dolu veya kütük özellikleri geçersiz iken SAVE veya 
OPEN deyimleri ile yeni bir kütük yaratmaya çalışıldığını gösterir. 


Device unavailable 


Var olmayan bir cihaz üzerine (disk veya disket v.s, gibi) kütük aç- 
maya çalışıldığında bu mesaj gelir. Belki de eldeki donanım var olan 
cihazla uyuşmayabilir. Ama diğer taraftan kullanıcı tarafından da iptal 
edilmiş olabilir. Örneğin OPEN “COMI” deyimi işletildiğinde bu hata 
mesajı gelebilir. Çünkü kullanıcı komut satırında /c anahtarı ile RS-232 
desteğini iptal etmiştir. 


Communication buffer overflow 


Input hafızasının dolu olduğu bir anda haberleşme input deyimi işletilirse 
bu hata meydana gelir. Bu hata meydana geldiğinde ON ERROR GOTO 
deyimi kullanarak input tekrar denenir. Bu işlem, programın hızı girdi- 
leri işlemeyi yettiği sürece bir önceki girdiler silinerek, düzeltilebilir. Bu 
yapılamazsa aşağıdaki seçenekler mevcuttur: 


e /c anahtarı ile COM alıcı belleğinin hacmi arttırılır. 


e İletişimin belleği doldurmaması için zaman zaman durdurulması 
sağlayacak ana bilgisayar/uydu ile bir el-sıkışma protokolu hazır- 
lanmalıdır. 
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o İletişim için daha düşük baud (iletişim hızı) kullanılmalıdır. 


Permission denied 
Hard (sabit) disk kontrol mekanizması tarafından gönderilen üç hatadan 
birisidir. 
e Yazmaya karşı korunmuş bir diskete yazmaya çalışıldığında, 
e Kullanılmakta olan bir kütüğe girilmeye çalışıldığında, 
» LOCK deyimi ile daha önce belirtilen aralığa UNLOCK deyiminin 
uymadığında 


hata meydana gelir. 


Disk not Ready 


Disket sürücüsünün anahtarının açık olması veya sürücüde disket bulun- 
maması durumunda bu mesaj gelir. Bu hata dönmek için ON ERROR 
GOTO deyimi kullanılır. 


Disk media error 


Disket kontrol mekanizması donanımda veya ortamda bir hata bul- 
duğunda bu mesaj gelir. Bu genellikle, hasar görmüş disket demektir. 
Disket bulunan kütükler başka sağlam bir diskete kopyalanır ve hasar 
görmüş disket ise formatlanır. FORMAT işlemi disketteki hasarlı böl- 
geyi işaretler, geriye kalan sağlam kısım kullanılır. 


Advanced Feature 

GW-BASIC bu versiyonunda mevcut olmayan ayrılmış bir kelimeyi kul- 
lanma durumunda bu mesaj gelir. 

Rename across disks 


Bir diskette bulunan bir kütüğün adını değiştirirken yeni adıyla be- 
raber başka bir sürücü adı verildiğinde bu mesaj gelir. Bu durumda 
ad değiştirme işlemine izin verilmez. Ad değiştirme işlemi daima aynı 
disket üzerinde yapılmalıdır. 


Path /File Access Error 


OPEN, MKDIR, CHDIR veya RMDIR işlemleri sırasında MS-DOS'un 
istenilen kütüğün adını, bulunduğu yerle bağlantısını yapamaması duru- 
munda bu mesaj gelir. Belirtilen işlemler tamamlanamaz. 
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76 (Path not found 
OPEN, MKDIR, CHDIR veya RMDIR işlemleri sırasında MS-DOS'un 


kütük için istenilen yolu bulamaması durumunda bu mesaj gelir. Belir- 
tilen işlemler tamamlanamaz. 


ADDRESS (adres) 

Bilginin bellekte tutulduğu kayıt, yer veya birimi tanımlayan isim, başlık veya 
sayıdır. 

ALGORITHM (algoritma) 

Bir problemi belli bir adımda çözmek için takip edilmesi gereken iyi tanım- 
lanmış kurallar veya işlemler sırasıdır. Bir algoritma, aritmetiksel, cebirsel, 
mantıksal veya başka tip işlem ve komutlar içerebilir. Karmaşık veya basit 
olabilir. Ama belli bir adımda çözümü sağlamalıdır. Problemin çözümünde 
bilgisayar kullanıldığında algoritma muhakkak gerekir. Çünkü problemin be- 
lirli bir sürede çözümü için bilgisayara işlem ve emirler içeren bir program 
verilmelidir. 

ALPHANUMERİC (alfasayısal) 

Karakter, sayı ve özel semboller içeren kelime veya kelime guruplarıdır. 
APPLICATION PROGRAM (uygulama programı) 

Kullanıcının ihtiyaçlarını karşılamak için tasarlanan bilgisayar programı. 
ARGUMENT (argüman) 

I. Değerinin, direk olarak başka bir değişkenin fonksiyonu olmadığı değişken 
tipi. Bir matematiksel işlemde bir sayının yerini veya bir fonksiyonun ihtiyacı 
olduğu bir sayıyı temsil eder. 

2. Bir tablodaki istenilen bir maddeyi (fonksiyon) bulmak için bilinen referans 
faktörü. Örneğin, Karekök SORT(X) fonksiyonundaki X bir argümandır. X 
değeri, bu fonksiyon tarafından hesaplanan karekökü alınacak değeri belirler. 
ASCITI (asci) 

American Standart Code for Information Interchange ( Amerikan Bilgi Değişim 
Standart Kodu) kelimelerinin baş harflerinden oluşmuş kısaltmadır. ASCII, bir 
çok bilgisayar tarafından kullanılan standart 8 bitlik kod dur. ASCTI Amerikan 
National Standarts Institute (Amerikan Ulusal Standartlar Enstitüsü - ANSI) 
tarafından geliştirilmiştir. ASCMI, bilgi için ikilik kodta 7 bit, haberleşme kon- 
trolu içinde 8nci bit olmak üzere 8 bitlik kod kullanır. 

ASSEMBLER (makina dili derleyicisi) 

Bilgisayar tarafından direk olarak çalıştırılabilen makina-dili programını üreten 
bilgisayar programıdır. 

ASSEMBLY LANGUAGE (makina dili) 


Probleme bağlı olmaktan ziyade makinaya (bilgisayar) bağlı olan sembolik bil- 
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gisayar dilidir. Makina dilinde yazılmış bir program derleyici tarafından mak- 
inanın anlayacağı bir dile çevrilir. Sembolik kodlar sayısal kodlara çevrilir. 
BACK UP (yedekleme) 


I. Orijinal bilgilerin kaybolması veya hasar görmesi durumunda geriye çağırıla- 
bilmesi için bir disket veya ortamdaki verilerin ikinci kopyasıdır. 

2. Ana cihazların bozulması durumunda bir operasyonu tamamlamak için 
tesiste veya başka yerde bulunan cihazlardır. 


BASIC (basic) 

Beginner's Al-purpose Symbolic Instruction Code (yeni başlayanlar tarafında 
her türlü amaç için kullanılan sembolik emirler kodu) kelimelerinin baş 
harflerinde oluşmuş kısaltmadır. BASIC, programlamanın temellerini öğret- 
mede kullanılmak üzere Dartmouth Koleji tarafından geliştirilmiş bir bilgisayar 
programlama dilidir. Bu dil, zaman-paylaşımlı bir dil olarak geniş ölçüde kabul 
görmüştür ve öğrenilmesi en kolay dillerden birisi olarak düşünülmektedir. 
BAUD (baud) 


Veri işleme hızının ölçümünde kullanılan birimdir. Baud cinsinden veri işleme 
hızı, saniye başına sinyal elementlerinin sayısıdır. Bir sinyal elementi 1 bitten 
fazla olabildiğinden baud saniye başına biti temsil etmez. Tipik baud oranları 
110, 300, 1200, 2400, 4800 ve 9600 dür. 

BINARY (ikili) 

1. İki ihtimalin olduğu seçenek veya durumun karakteristiği veya özelliğidir. 
2. Ondalık sistemde olduğu gibi 10 tabanı yerine 2 tabanını kullanan sayı 
sistemidir. Ikili sistem, 0 (sıfır) ve 1 (bir) olmak üzere sadece iki basamak 
kullanan bir sistemdir. 

3. Fonksiyonunu yerine getirmek için sadece iki ihtimalli şekilde (örneğin açık 
veya kapalı gibi) tasarlanan bir cihazdır. 

BINARY DIGIT (ikili basamak) 

0 (sıfır) veya | (bir) ile ifade edilen miktardır. 

BTT (bit) 

” Binary digit” kelimelerinin kısaltılmasıdır. Bir bit 0 (sıfır) veya | (bir) olabilir. 
Bilgisayar tarafından algılanabilen en küçük bilgi birimidir. 

BLOCK (blok) 

Gelişigüzel uzunluktaki ve genelikle birleşik olan veri veya bellek miktarı- 
dır. Tümü birim olarak adlandırılan benzer kayıtlardan meydana gelmiştir. 
BOOLEAN LOGIC (boole mantığı) 


Karşılaştırmaların yapıldığı matematiksel analiz alanıdır. Programlanan bir 
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komut iki veri alanını karşılaştırabilir ve sonuca göre bir alanı veya diğerini 
değiştirebilir. oBu sistem İngiliz matematikçisi George Boole (1815-1864) 
tarafından formülize edilmiştir. Karşılaştırmada kullanılan bazı işlemler şun- 
lardır: OR, AND, NOT, XOR, EOV ve IMP. 

BOOT (ön yükleme) 


Sistemin kendiliğinden istenilen seviyede ve sırada çalışmaya başlamasına 
imkan sağlayan makina işlemidir. İlk birkaç komut bir girdi cihazından bil- 
gisayara yüklenir. Bu komutlar, sistemin geriye kalan kısmının yüklenmesine 
yardımcı olur. Bu kelime bootstrap (önyükleyici) kelimesinin kısaltılmasıdır. 
BPS (bps) 

Bits per second (saniye başına bit) kelimelerinin baş harflerinden alınmıştır. 


BUFFER (ara bellek) 

Çeşitli cihazlar arasında verilerin aktarım sırasında geçici olarak depolandığı 
bellektir. 

BYTE (bayt) 

8 (sekiz) veri biti ve 1 (bir) kontrol biti içeren veri elementidir. Ayrıca 8 (sekiz) 
ikili bitlik bilgi birimidir. ASCTI kodunda verilir. 

CENTRAL PROCESSING UNIT, CPU (merkezi işlem birimi, 
MIB) 

Hesapların yapıldığı ve verilerin işlendiği bilgisayar sisteminin kalbidir. MİB 
programı anlamak ve çalıştırmak için bir kontrol birimi, hesapları ve mantıksal 
işlemleri yapacak bir aritmetik birimi içerir. Ayrıca bilgiyi yönlendirir, girdi 
ve çıktıları kontrol eder ve geçici olarak da veri depolar. 

CHARACTER (karakter) 


Bilgisayar tarafından okunabilen, yazılabilen ve depolanabilen harf, rakam, 
noktalama işaretleri ve sembollerdir. 

COMMAND (komut) 

Bilgisayarın herhangi bir işlemi başlamasını, durmasını veya devam etmesini 
bildiren sinyal veya harfler serisidir. Komut çoğu zaman emir (instruction) 
kelimesi ile yanlış olarak eş anlamlı gibi kullanılır. 

COMPATIBLE (uyumlu) 

Farklı bilgisayarlar ve cihazlar arasında kullanılan verilerin, programların veya 
cihazların tanımıdır. 

COMPILER (derleyici) 

Probleme bağlı şekilde yazılmış bir programı, bilgisayar diline veya benzer bir 
emirler zincirine dönüştüren bilgisayar programıdır. 
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COMPUTER NETWORK (bilgisayar ağı) 

Coğrafik olarak ayrı bölgelerde bulunan ve haberleşme ağları ile birbirine bağlı; 
yükleri, işlemleri paylaşabilen ve aralarında otomatik olarak haberleşebilen 
bilgisayar cihazlarıdır. 

CONFIGURATTON (düzenleşim) 


Donanım olarak, bir sistemi oluşturan ve ilişkili olan cihazlar gurubudur. 
Yazılım olarak da, beraber çalışabilen ve uyumlu olan programlar gurubudur. 
CONSTANT (sabit) 

Değeri hiç değişmeyen veri veya parametredir. 

CO-PROCESSOR (yardımcı işlemci) 

Yüzer nokta aritmetiği gibi matematiksel işlemleri MİB den daha verimli yapan 
ve MIB'e bağlı olan bir işlemci devredir. 

CURSOR (imleç) 

Veri girişinin ekrandaki yerini gösteren ve yanıp sönen çizgi veya kutudur. 
DEBUG (hata ayıklama) 

Program veya diğer yazılımlarda bulunan hata veya yanlışları bulmak ve ayık- 
lamak için programın mantığını kontrol etme işlemidir. 

DEFAULT (varsayılan değer) 

Aksi belirtilmedikçe, bilgisayar tarafından kabul edilen veya yerine getirilen 
değer veya komutlardır. 

DIAGNOSTIC PROGRA MS (teşhis programları) 

Cihazların ayarlanmasında veya bozuklukların ayıklanmasında kullanılan özel 
programlardır. 

DIRECTORY (dizin) 

Bir bellek ortamındaki herbir kütüğün adını, yerini, büyüklüğünü ve yaratıldığı 
veya değiştirildiği tarihi ve zamanı veren tablodur. 

DISK OPERATING SYSTEM (disk işletim sistemi) 

Bir disk sürücülü sistemin, veri girişi ve saklanması amacı ile kullanımı 
sağlayan ve bilgisayarı programlayan teknik ve işlemler gurubudur. 

DOS (dos) 

Yukarıda anlamı açıklanan disk işletim sisteminin kısaltılmış şeklidir. 
DOUBLE-DENSITY (çift yoğunluklu) 

Standart tek-yoğunluklu disketlerin depolama kapasitelerinin iki misli kapa- 
sitesine sahip disket tipidir. 

DOUBLE-PRECİSTION (çift hassasiyetli) 
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Bilgisayarda hesaplama işlemlerinde kullanılan ve daha fazla hassasiyet iste- 
nen durumlarda noktadan sonra bulunan basamak sayısını iki misline çıkaran 
tekniktir. 

DOUBLE-SIDED (çift taraflı) 

Disketin her iki yüzünün de (tarafının da) veri depolamada kullanıldığını be- 
lirten bir terimdir. 

END-OF-FILE MARK, EOF (kütük sonu işareti) 

Kütügün son kaydının okunduğunu belirten sembol veya makina dili işaretidir. 
FILE PROTECTTON (kütük korunması) 

Disket gibi depolama ortamındaki verilerin yanlışlıkla ve istemeden silinmesini 
engelleyen cihaz veya methodlardır. 

FIRMWARE (bellenim) 

Bilgisayarı imal eden firma tarafından sisteme konulmuş ve genellikle siline- 
meyen yazılımlardır. Örneğin bir yazıcıdaki harfleri belirleyen yazılımlar, ya 
da bilgisayarın ROM 'una konmuş yazılımlar gibi. 

FIXED DISK (sabit disk) 

Çevrenin etkilerinden korumak için kapalı bir kutuya konmuş ve devamlı veri 
depolama amacı için kullanılan, genellikle bilgisayar içinde bulunan disktir. 
FLOATING-POINT ARITMETIC (yüzer-nokta aritmetiği) 
Otomatik olarak ondalık sayıdaki noktanın yerini tesbit edemeyen bilgisa- 
yarlarda kullanılan ve yüzer-nokta matematik işlemini sağlayan emirler içeren 
tekniktir. Kullanıcı nokta yerini düşünmesi gerekmez. 

FORMAT (format, biçim) 

Depolama cihazlarında bilgiyi saklama yapısını sağlayan ve önceden belirlenen 
veri düzenlemesidir. 

HARD COPY (basılı kopya) 

Raporlar, yazılar ve grafikler gibi okunabilir şeklindeki genelde kağıda basılmış 
bilgisayar çıktılarıdır. 

HARDWARE (donanım) 

Bir sistemi oluşturan fiziksel cihazlardır. 

HEXADECIMAL (onaltılı sayı sistemi) 

16 (onaltı) tabanına dayanan sayı sistemidir. Bu sistemde kullanılan semboller 
0-9 arası rakamlar ve A, B, C.D, E ve F harflerinden meydana gelmiştir ve 
onaltı basamak içerir. 

HIDDEN FILES (saklı kütükler) 


Normal bir dizin araştırma işlemi sırasında görünmeyen kütüklerdir. 


INTERPRETER (yorumlayıcı) 

BASIC gibi bir dilde yazılmış bir kullanıcı programını her defada bir satır 
olmak üzere okuyan, çeviren ve çalıştıran bir programdır. Derleyici ise yorum- 
layıcının aksine yazılan kullanıcı programının tamamını çalıştırmadan önce 
okur ve çevirir. 

INTEGRATED CIRCULIT (entegre devre, tümdevre) 

Küçük bir yarı-iletken parça içeren elektronik bir devredir. 

INTERFACE (arabirim) 

Bilgisayarlar, yazıcı, ekran ve modemler gibi çeşitli cihazların aralarındaki bilgi 
haberleşmelerini sağlayan bir arabirim (devre) dir. 

1/O (Girdi/Çıktı) 

Input/Output kelimelerinin kısaltılmasıdır. 

K (K) 

102'e eşit olan 2'0 miktarına verilen semboldür. K, bazen k (kilo—1000) ile 
karıştırılmaktadır. 

LOOP (döngü) 

İstenilen sonuç elde edilinceye ya da daha önceden belirlenen şart yerine ge- 
tirilinceye kadar bir emirler gurubunun sürekli tekrar edilip çalıştırılmasıdır. 
Döngü imkanı, çeşitli emirlerin tekrar tekrar yazılması zahmetini ortadan 
kaldıran programlamanın önemli bir özelliğidir. 

MANTISSA (mantis) 


Bir sayının logaritma değerinin ondalık kısmı yani noktadan (.) sonraki kıs- 
mıdır. Örneğin, 163 sayısının logaritması 2.212 dir. Mantisi ise 0.212 dir. Diğer 
tarafı yani 2.0 ise karakteristiği olarak adlandırılır. Yüzer-noktalı sayılarda, 
mantis ise sayı kısmıdır. Örneğin, 24 sayısı 24.2 olarak yazılırken (24 x 102) 
24 mantis, 2 ise üstür. 


MEMORY (bellek) 


Bilgisayarlarda bulunan; verilerin tutulduğu, kopyalandığı ve geri çağırıla- 
bildiği yüksek hızlı çalışma alanıdır. 

MICRO PROCESSOR (mikro işlemci) 

Bir bilgisayarın yarı-iletken merkezi işlem birimidir (CPU). 

MODEM (modem) 

Modulator demodulator kelimelerinin kısa yazılışıdır. £ Bilgisayarlar arası 
haberleşmede kullanılan bir cihazdır. Bilgisayar sinyallerini telefon hatları 
yardımı ile gönderilmek üzere analog sinyale; başka bilgisayarlardan telefon 
hatları vasıtasıyla gelen analog sinyalleri de bilgisayarın anlayabileceği sayısal 


Le 
La) 
ie 4) 


sinyale çevirir. 

MS-DOS (ms-dos) 

Microsoft Disk Operating System kelimelerinin kısa yazılışıdır. 

OCTAL NUMBER SYSTEM (sekizli sayı sistemi) 

Oktal (sekiz tabanlı) sayılarla ifade etme sistemidir. Bu sayı sistemi 0-7 arası 
sayıları içeren sekiz basamak kullanır. Her basamak sekizin kuvveti olan bir 
oktal sayıyı temsil eder. Bu sistem, hesaplamalarda ikili sayıları ifade etmenin 
basit bir yolu olarak kullanılır. 

OPERATING SYSTEM (işletim sistemi) 

Bilgisayarın tüm çalışmasını düzenleyen organizeli ve programlı emirler gu- 
rubudur. 

PARITY (eşlik) 

Veri iletişimi sırasında verideki bit toplamını çift veya tek sayıya eşitleyerek 
verideki varsa iletişim hatasını bulmak için kullanılan bit kodudur. 
PARTITTON (bölüntüleme, ayırma) 

Sabit bir diskin, işletim sistemi gibi özel amaçlarla kullanılmak üzere ayrılan 
kısmıdır. 

PERIPHERAL (çevre, çevresel) 

Bilgisayar dışında bulunan girdi/çıktı veya depolama cihazlarıdır. 

PIXEL (piksel) 

Picture Element (resim elementi) kelimelerinin kısaltılmasıdır. Ekran üzerinde 
bulunan ve bir bitle temsil edilen tek bir noktadır. 

PORT (bağlantı kapısı) 

Haberleşme hattı veya çevredeki diğer cihazlarla bağlantı saglamak için 
merkezi bilgisayarın giriş kanalıdır. 

PROGRAM (program) 

Bilgisayarlar tarafından kabul edilebilir bir şekilde yazılan ve bilgisayarın is- 
tenilen işlemleri yapmasını sağlayan emirler ve cümleler serisidir. Programlar; 
işletim sistemleri, derleyiciler, yorumlayıcılar, veri işleme, yardımcı ve teşhis 
programları, mühendislik analizi, muhasebe, stok kontrolu ve daha birçok işi 
yapacak şekilde hazırlanan yazılımlardır. 

PROMPT (bilgi istemi, im) 

Kullanıcı kişiye, girdi istendiğini belirten ve ekranda gözüken karakter veya 
karakterlerdir. 


RAM (ram) 


Random-access memory kelimelerinin kısaltılmasıdır. 
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RANDOM-ACCESS MEMORY (rasgele erişimli bellek) 

Hızlı bir çalışma alanı sağlayan, yatay ve düşey koordinatlı bir sistem kullanan 
bilgisayar belleğidir. Bilgisayar buraya gelişigüzel şekilde bilgi yazabilir veya 
buradan bilgi okuyabilir. Bu belleğe kısaca RAM adı verilir. 

READ-ONLY MEMORY (salt-okunur bellek) 


Bilgisayarda silinmemesi gereken bazı verilerin veya emirlerin bulunduğu bir 
bellek tipidir. Bilgisayar buradan sadece veri veya emir okuyabilir ama buraya 
yazamaz veya içeriklerini silemez. Bu belleğe kısaca ROM adı verilir. 

ROM (rom) 

Read-only memory kelimelerinin kısaltılmasıdır. 

RS-232 (RS-232) 

ELA standartı RS-232 maddesine göre imal edilmiş, modem ve terminal arasın- 
daki haberleşmede kullanılan bir arabirimdir. 

SINGLE-DENSITY (tek-yoğunluklu) 

Bir disketin standart kayıt yoğunluğudur. Bu disketler yaklaşık olarak inç 
başına 3400 bit (bpi) bilgi depolayabilirler. 

SINGLE-PRECISTION VALUE (tek-hassasiyetli değer) 

Bigisayardaki bir sayıyı göstermek için kullanılan depolama pozisyonu veya 
kelime sayısıdır. Tek-hassasiyetli aritmetikte bir sayı için tek bir kelime kul- 
lanılır. Sonuç olarak ondalıklı sayılarda noktadan sonra bulunan basamak 
sayısı hassasiyete göre değişir. Tek-hassasiyetli değerde, noktadan sonraki 
basamak sayısı 7 (yedi) dir. 

SINGLE-SIDED (tek taraflı) 


Sadece bir tarafında (yüzünde) veri depolayabilen ve bulunduran disketleri 
tanımlayan terimdir. 


SOFTWARE (yazılım) 

Çalıştırıldığında, bilgisayarın belirli işleri yapmasına sebeb olan emirler ve dey- 
imler serisidir. 

SWITCEH (anahtar) 

Bir komuta eklenen ve bilgisayarın istediği (default) yönün aksine hareketin 
yönünü belirleyen bir emirdir. 

SYNTAX (sözdizim, sentaks) 

Bir programlama dilinde deyim yapısının kurallarıdır. 

SYSTEM (sistem) 

Bir birim olarak çalışacak şekilde ilişkilendirilmiş donanım, yazılım, ve bellen- 
imlerin bir arada bulunmasıdır. 
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TRACK (iz) 

Sürücü kafaları ile erişilen disket, disk veya teyp kartuşları gibi hareketli de- 
polama ortamları üzerinde bulunan bölgelerdir. 

TREE-STRUCTURED DIRECTORY (ağaç yapılı dizin) 

Ekranda gösterildiğinde ağaca benzeyen, dizin ve altdizinler içeren kütük or- 
ganizasyon yapısıdır. 

TRUNCATTON (kesme) 

Belli bir kurala göre hesaplamayı kesmektir. Örneğin, bir sayının sonundaki 
rakamları yuvarlama yapmadan kesme gibi. 

VOLUME LABEL (disk veya disk adı) 

Bir disketin veya sabit diskin ayrılmış kısmının içeriğine verilen isimdir. 
WORD (kelime) 

Tek bir işlem sırasında bilgisayarın yapabildiği en büyük birimi içeren bit seri- 
sidir. 

WRITE-PROTECT NOTCH (yazılmaya karşı korunma anahtarı) 


Disket üzerinde bulunan ve kapatıldığında disketin üzerine herhangi bir bil- 
ginin yazılmasını veya silinmesini önleyen, sadece okunmasına imkan veren 
açıklık yani deliktir (anahtar). 
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CEVAPLAR 


BÖLÜM 3 


CEVAP 1))) Yazacağınız kısa bir programla bunu tesbit edebiliriz. 


10 X-S0R(2)72-2 
20 YzS0R(4)72-4 


30 PRINTX 
40 PRINTY 
50 END 


Y—90, X ise sıfır olmayacaktır. Çünkü SOR(2)'nin değeri hassas basamak sayısı 
kadar doğru hesaplanır. Karesi alındığında hassas olmayan basamaklar sıfır 
olamayacak ve fark sıfırdan farklı olacaktır. 

CEVAP 3))) a) Hatalı. Değişken bir rakam ile başlamaz. b) Hatalı. Eşitliğin 
sol tarafında sadece bir değişken olmalıdır. c) Doğru. d) Hatalı. Eksponansiyel 
sayılarda E-XX ifadesinde XX tamsayı olmalıdır e) Doğru 

CEVAP 5))) KEDIĞ, KILOMETREĞ, XKUJZ geçerli tamsayı değişken- 
leridir. 34MN& bir rakam ile başladığından ve N$12ğ4 de ise değişken özel 
karakter içerdiğinden geçerli tamsayı değişkenleri değildir. MIL# çift has- 
sasiyetli ve J99X! de tek hassasiyetli gerçek sayı değişkenleridir. 

CEVAP 7))) 


a) 5.O0#(A/C)“(M-1)/( (R-T)7(1/M)4(R*T) (3/5) ) 
b) 3.E4084(A1B)/(B*C)-7.E-74(A*ASB*B) / (B*B*#C*C) 
c) (2.0*(P/0)“(K-1)/(R-3.0*T)7(1/M))7(1/(34M)) 
d) ((A43.0)4B7(N#K)/(D/ (B-A) “(N#M)))7(1/(K-2)) 
e) Piz(X14X14X24*X24X2) “4*(SOR(Y1)#SOR(Y2) ) “3 
P2-(X1/Y1)*(1./3.)4(X2/Y2)4*0.25 
SONUC-P1/P2 
f) (A13.)4*B*N/(2.74(C-D/B)41.0) 
g) UZ30.S#EXP(X#(SIN(X))42)4Y4ALOG( (X#X*Y#Y)*(1./M) ) 
h) XLs1.044.0#X#X/(Z7474*(2.#K#Kt1.0)) 
i) ((A/B)4N/(C-D)#M/(D/ (B-A) #(M#N)))4(1./ (MAN) ) 
j) ((X-V72)41.24(1.—X#X/(YAYAZ*Z) ) /SOR((X*#Y)7(X-Y)) 
& *3)*((N#M)/72.) 
k) ASIN <ATN(X/SOR(1-X*X)) 
ACOSH-LOG(X*SOR(X#X-1)) 


ASINH-LOG(X*#SOR(X*X4*1)) 
ATN(X) #ASIN/ (ACOSH-ASINH) 


CEVAP 9))) a) Hatalı, sayı virgül içermez . b) E den sonra yazılan üste ait 
sayı tamsayı olmalıdır. c) Hata yok. d) Hata Yok. e) Hatalı. Değişken bir 
rakam ile başlamaz. f) Hata Yok. h) Hata yok. i) ML tamsayı ise “ ilave 
edilmesi gerekir; değilse gerek yok. j) Hata yok. k) Hata yok. 1) Hata Yok. 
m) Negatif sayının 0.5 kuvveti alınamaz. n) Hata Yok. o) Hata Yok. p) Hata 
Yok. g) Hata Yok. r) Negatif sayının üstü alınamaz. s) Hata Yok. 


CEVAP 11))) 


10 REM Dikdörtgensel bir kutunun hacmini hesaplayan 
20 REM Program 

30 A-5 

40 B-10.5 

50 C-6.65 

60 V-A*B*C 

70 YA-2#(A#B$B*CtHA*C) 

80 PRINT "HACIM-";V 

90 PRINT "YÜZEY ALAN-";YA 
100 STOP 

110 END 


CEVAP 13))) 


10 INPUT "SARKACIN YERDEĞIŞTİRME AÇISINI GIRINIZ ";ALFA 
20 INPUT "SARKACIN UZUNLUĞUNU CM OLARAK GIRINIZ";L 

30 PIs4*ATN(1) 

40 G —- 980 

50 P-24#PI*SOR(L/G)*(140.254#SIN(0.5*ALFA) 72) 

60 PRINT "PERYOD-";P 

70 STOP 

80 END 


CEVAP 15))) 


20 PIsA*ATN(1) 
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30 M-0.006 

40 T-0.5 

50 X-0.2 

60 A-0.4 

70 REM ------ IŞLEMLER >>------ 
80 Ks4*PI“24M/T“2 

90 TE-O. S5#K*AXA 

100 PES0. 5#K#X#X 


110 KEZTE-PE 
120 REM ---- BILGILERI EKRANA YAZ —-———-— 
130 PRINT "YAY SABITI  “<K.” KGJ/S*Zn 


140 PRINT "KINETIK ENERJİ -";KE;" JOULE" 
150 PRINT "POTANSIYEL ENERJI -";PE;" JOULE" 
160 PRINT "TOPLAM ENERJİ -";TE;" JOULE" 


170 END 
CEVAP 17)) 
(a) 
10 5 Yi 1 
(b) 
1500 .5 5 587.6448 
(c) 


Üverflow in line 75 
(a) 
Illegal function call in line 30 


BÖLÜM 4 


CEVAP 1))) a) IF-THEN aynı satırda olmalı. b) Doğru. c) I ve N'in eşitliği 
için — operatörü kullanılır. d) X 'in 1.234 eşitlenmesi — ile yapılır. e) Yal- 
nış. Önermeyi THEN takib etmeli. f) Parantez içindeki işlem bir önerme 
içermelidir; aritmetik deyim değil. g) Doğru. 


bi CEVAP 3) 


10 INPUT "DELTA T YI GIRINIZ ";DT 
20 T-1 

30 PRINT " T ye 
40 Y-2*EXP(-0.05*T)*SIN(T/3) 

50 PRINT T,Y 


234 


60 T-T4#DT 

70 IF (1<10) THEN GOTO 40 
80 STOP 

90 END 


CEVAP 5))) 


10 N/-0 

20 INPUT "BIR SAYI GIRINIZ ";X 

30 IF (X>-0) THEN NCIFT-NCIFT*İ 

40 IF (X <0) THEN NTEKS-NTEKS*1 

50 N/-N/*1 

60 IF (N/<>35) THEN GOTU 20 

70 PRINT NCIFT;" ADET ÇIFT SAYI" 

80 PRINT NTEKS;" ADET TEK SAYI VAR" 
90 END 


CEVAP 7))) 


10 REM *** XKN 
20 REM *** H 
30 H-0 

40 PRINT " RAKIM KAYNAMA NOKTASI " 
50 XKN-100-H/170 

60 PRINT H, XKN 

65 H-H*t100 

70 IF (H<5000) THEN 50 ELSE 80 

80 END 


CEVAP 9))) 


KAYNAMA NOKTASI 
YÜKSEKLİK 


10 KS/-0 

20 KS/2KS/*1 

30 INPUT KODZ,CINS$ ,MAT,FIZ 

40 IF (CINS$-"K") AND (MAT>-50 AND FIZ>-50) THEN IA/-IA/*i 
50 IF (CINS$-"E") AND (MAT <50 AND FIZ <50) THEN 1B/-1B/41 
60 IF (CINS$-"E") AND (MAT>-50 AND FIZ <50) THEN 1C/-1C/41 
70 IF (KS/<>13) GO TO 20 

80 PRINT 'A ŞIKKININ CEVABI ?,IA7/,?” KIŞI ? 

90 PRINT 'B ŞIKKININ CEVABI ?,IBX,? KIŞI ? 

100 PRINT ?C ŞIKKININ CEVABI ?,1C/,” KIŞI ? 

110 STOP 

120 END 


CEVA 


10 
20 
30 
40 
50 
60 
70 
80 
85 
90 
95 


CEVA 


10 
20 
30 
40 
50 
60 
70 
80 
90 
95 


b 
ve 
e 


P 11))) 

R-0 .09 

INPUT "KREDI GERI ÖDEME SÜRESINI AY OLARAK GIRINIZ ";N/ 
INPUT " Kredi Süresi : ";N/;" ay" 

INPUT " Kredi Miktarı Aylık Taksit Miktarı" 

INPUT " (Milyon TL) (Milyon TL) " 

P-5 

TAKSIT-RAP/(1-(14R)“(-N4)) 

PRINT P,TAKSIT 

P-P*5 

IF (P<200) THEN 70 

END 

P 13))) 

INPUT " VITES VE DEVİR SAYISINI GIRINIZ ";VITESZ, DS 


REM ##* DS-DEVIR SAYISI 

REM *** DORAN-DIŞLI ORANI 

IF (VITESX-1) THEN DORAN-3.3 
IF (VITES/-2) THEN DORAN-2.1 
IF (VITES/-3) THEN DORAN-1.6 
IF (VITESY-4) THEN DORAN-1.1 
HIZ-0.028*DS/DORAN 

PRINT "HIZ—";HIZ 

END 


CEVAP 15))) 


10 
20 
30 
40 
50 
60 
70 
80 
90 


INPUT "i. DENKLEMIN KATSAYILARI ? ";A, B, C 
INPUT "2. DENKLEMİN KATSAYILARI ? ";D, E, F 
DDSA*E-D*B 

X-(E*C-B*F) /DD 

Y(A#*F-D*C) /DD 

PRINT "X- ";X 

PRINT "Y- ";Y 

STOP 

END 
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CEVAP 17))) 


10 A-0.01 
20 B-0.005 

30 C-0.00001 

40 D-0.01 

50 T4-10000 

60 K/-800 

70 11-0 

80 PRINT " GÜN OTAVŞAN SAYISI O KURT SAYISI " 
90 17/21/41 

100 T/-(14A-C*K/) *T/ 

110 K/2(1-B4C*D*T/) *K/, 

120 PRINT 1/,T4,K/ 

130 IF (1/<365) THEN GOTO 90 

140 STOP 

150 END 


CEVAP 19))) 


RÜZGAR YÖNÜNÜ BELİRLEYEN KOD 

YÖNLERE GÖRE 10 KM'DE BIR SICAKLIK DÜŞÜŞÜ 
TOPLAM SICAKLIK DÜŞÜŞÜ 

RÜZGAR HIZI (KM/H) 


10 REM KODE 
20 REM RD 

30 REM TDUSUS 
40 REM RUZHIZ 


50 REM T - HAVA SICAKLIĞI (C OLARAK) 
60 PRINT "DOĞU 0 * 
70 PRINT "BATI z 9 
80 PRINT "KUZEY 2 
90 PRINT “GÜNEY ğ ” 


100 PRINT "KUZEYDOĞU: 4 
110 PRINT "KUZEYBATI: 5 " 
120 PRINT "GÜNEYDOĞU: 6 
130 PRINT "GÜNEYBATI: 7 “:PRINT:PRINT:PRINT 

140 PRINT "RÜZGAR YÖNÜNÜ GIRINIZ " 

150 INPUT KODE/ 

160 IF (KODEY>7) THEN PRINT "HATALI KOD GIRIŞI... ":GOTO 150 
170 INPUT "RÜZGAR HIZINI (KM/H OLARAK) GIRINIZ "“;RUZHIZ 

180 INPUT "HAVA SICAKLIĞINI (C OLARAK) GIRINIZ ";T 

190 REM YÖNE GÖRE KM BAŞINA SICAKLIK DÜŞÜŞÜ TESBITI 

200 IF (KODE/-O) THEN RD-1.5 

210 IF (KODE/-i) THEN RD-1.4 


220 IF (KODEY-2) 
230 IF (KODE/-3) 
240 IF (KODE/-4) 
250 IF (KODE/-5) 
260 IF (KODE/-6) 
270 IF (KODE/-7) 


THEN RD-1.7 
THEN RD-1.1 

THEN RD-O0.54*(1.5t1.7) 
THEN RD-0.54(1.441.7) 
THEN RD-0.5*(1.541.1) 
THEN RD-0.54(1.441.1) 


280 TDUSUS-0 .1#RUZHIZ*RD 


290 T-T-TDUSUS 
300 PRINT 
310 STOP 
320 END 


CEVAP 21))) 


(a) 
MERHABA ORHAN 
MERHABA ORHAN 


"ŞICAKLIK—";T;" G" 


MERHABA ORHAN ORHAN 


MEHMET 


SEMIH 
ZEKİ 
BILAL 


Dut of DATA in 60 


Ok 


4.333334 -i 


bi 
o 
< 


8s 8 3 23 
10 6 6 1.333333 
dd o go isiiiili 
14 8 12 1 
16 9 15 .9333333 
18 10 18 .8888889 
20 ii 21 .8571429 
22 12 24 .8333333 
24 13 27 .8148148 
26 14 30 .8 
28 15 33 .7878788 
30 16 36 .7777778 
32 17 39 .7692308 
34 18 42 .7619048 
36 19 45 .7555556 
38 20 48 .75 
40 21 51 .7450981 


BÖLÜM 7 


CEVAP 1))) a) Doğru. b) Doğru. ©) İndisler bu deyimde verildiği gibi 
değişken olarak tanımlanabilir. d) Doğru. e) d)'nin aynısı, sadece deyimde 
çift hassasiyet kullanılmış. f) Doğru. g) İndis içinde indis kullanımı yalnıştır. 
h) B(2.5) olmalıdır; indislerin maksimum boyutu birbirinden virgül ile ayrılır. 
i) Sıfır boyutlu indisli değişken tanımı gereksizdir. j) Yalnış. k) (1:3) fazlalık 
oluşturmaktadır. |) indis içinde başka indisli değişken olamaz. m) İndislerden 
herhangi biri negatif olarak tanımlanmaz. n) INTEGER tanımı FORTRAN 
dilinde vardır. 

CEVAP 3))) a) | kez. b) 5 kez. c) 7 kez. d) 2 kez. e) Hiç çalışmaz f) 19 kez 
çalışır. 

CEVAP 5))) 


10 REM *** KARIŞIK BIR DIZIYI ILK YARISI POZITIF 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


REM *** IKINCI YARISI NEGATIF OLACAK ŞEKILDE 
REM *** SIRALAMA YAPAN PROGRAM 
READ N 
IN-N/2 
DIM A(N) ,B(N) 
FOR I-1i TON 
READ A(1) 
IF A(1)<0 THEN GOTO 130 
IP-IPt1i 
B(IP)-A(1) 
GOTU 150 
IN-IN*1 
B(IN)-A(1) 
NEXT I 
FOR Isi TON 
PRINT B(1); 
NEXT I 
DATA 8,3,-6,8,-5,0,-9,2,-8 
END 


CEVAP 7))) 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


INPUT N 

DIM A(N) 

FOR Ks1 TON 

INPUT A(K) 

NEXT K 

REM *****#STRAYA DIZME#A# #44 ###X 
FOR Ki TO N-1 
FOR P-K*1 TON 
IF A(K)<A(P) THEN GOTO 110 
L-A(K) : AÇK)SA(P) : A(P)-L 
NEXT P 
NEXT K 

REM *****#STRALAMA BITTIk###### 

PRINT:PRINT 

PRINT " SIRALANMIS A DIZISI ":PRINT 

FOR Kz1 TON 

PRINT A(K); 

NEXT K 

END 
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CEVAP 9))) 


10 DIM F(100) 

20 REM *#** BURADA NIN MAX 100 OLABILECEĞI VARSAYILMAKTADIR. 
30 INPUT N 

40 F(1)s1 

50 F(2)-1 

60 PRINT "N","EF(N)","E(N-1) /E(N)" 
70 FOR 1-3 TON 

80 F(I)-F(1-1)4F(1-2) 

90 PRINT I,F(I),F(1-1)/F(1) 
100 NEXT I 

110 STOP 

120 END 


CEVAP 11))) 


10 DIM T(100) 

20 INPUT "X VE N DEĞERLERİNİ GIRINIZ ";X,N 
30 T(0)z 1 

40 T(1)- X 

50 PRINT O,X,T(0) 

60 PRINT 1,X,T(1) 

70 FOR 1-2 TON 

80 T(1I)-2#X*T(1-1)-T(1-2) 
90 PRINT I,X,T(I) 

100 NEXT I 

110 STOP 

120 END 


CEVAP 13))) 


10 DIM A(9,3) 

20 DATA 28.6,22.,18.2,20.4,21.3,24.4,21.1,28.1,29.2 
30: DATA 7. BS. İk. 18. ALİR. İK. 

40 DATA 7.5,6.3,6.5,9.5,11.5,7.8,8.2,7.5,8.4 

50 FOR Izi TO 9 

60 FOR J-i T0 3 

70 READ A(1,J) 

80 NEXT JI,I 

90 PRINT "OTOMOBIL TIPLERI VE KODLARI" :PRINT 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
215 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


CEVAP 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
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PRINT "Serçe 1 “: PRINT "Şahin a” 
PRINT "Doğan S : 3 ": PRINT "Doğan SIX ; 4 " 
PRINT "Kartal 5 ": PRINT "Kartal SLX: 6 " 
PRINT "Tipo S : 7 ": PRINT "Tempra sX: 8" 


PRINT "Tempra SXA: 9 " 
INPUT "Arzu Ettiğiniz Arabanın Kodunu Giriniz ";ICAR/ 
INPUT "ARABANIN O KM FIYATI ? ";FIYAT 
INPUT "ARABA KAÇ YAŞINDA ? ";IYAS/ 
IF (IYAS/>3) THEN 220 
FOR 1-1 TO IYAS 
FIYAT-FIYAT*(1-.01#A(ICAR/,1)) 
NEXT I 
GOTO 300 
FOR I-i T0 3 
FIYAT-FIYAT*(1-.O1#A(ICARZ,1)) 
NEXT I 
REM > 4 YAŞ VE ÜSTÜNDEKI ARABALAR IÇIN, (1.-6./100.)-0.94 
REM - OLUR. BU NEDENLE.. 
FOR 1-4 TO IYAS”/ 
FIYAT-FIYAT*.94 
NEXT I 
PRINT "ARABANIN IKINCI EL FIYATI—" FIYAT 
END 


17))) 


DIM DON(70) 
OPEN "I",#1,"NOTLAR" 
REM *** DON-DÖNEM NOTU HESAPLANIYOR... 
INPUT#1,N 

IF (N>70) THEN GOTO 240 

IF (N<-0) THEN GOTO 260 
PRINT "NUMARASI" ,"ADI VE SOYADI","DÖNEM NOTU" 
FOR I-i TON 

INPUT#1i, NO$,AS$,Vİ,V2,V3,0D,FIN 
DON(1)>0.1#V140.15#V240.154#V310.24*0D$0.44#FIN 
PRINT NO$,AS$,DON(1) 
NEXT I 
FOR 1-1 TON 
DORTZDORT*DON(I) 

NEXT I 


DB 
hi 
BW 


160 DORTSDORT/N 

170 FOR I-1i TON 

180 DSS-DSS*(DORT-DON(1)) 2 

190 NEXT 1 

200 DSS-SOR(DSS/ (N-1)) 

210 PRINT "ORTALAMA ";DORT 

220 PRINT "STANDART SAPMA- ";DSS 

230 STOP 

240 PRINT "ÖĞRENCI SAYISI MAKSIMUM 70 OLMALIDIR " 
250 STOP 

260 PRINT "N-";N," OLUP, HATALI GIRIŞ VAR..." 
270 STOP 

280 END 


CEVAP 18))) 


10 DIM D(15) 

20 N-15 

40 DATA 12.3.12:1,12.9.12.9, 12.5. 11 .8,12.0 
M0 DELTA 12.1 10.1, 19.5 Ş.A 0 BİŞİ İğLİ 12.2 
50 FOR Izi TON: READ D(I) : NEXT I 
60 GO-i 

70 FOR 1-1 TON 

80 A0-AO*D(I1) 

90 o GO-GO*D(1) 

100 HO-HO*1/D(1I) 

110 NEXT I 

120 AO-AO/N 

130 HON/HO 

140 G0-GO“(1/N) 

150 FOR Isi TON 

160 (O SH-SH#ABS(D(I)-A0) 

170 SS-SS*(D(I)-A40)72 

180 NEXT I 

190 SH-SH/N 

200 VAR-SS/(N-1) 

210 SS-SOR(VAR) 

220 PRINT "ARITMETIK ORTALAMA : ";A0 
230 PRINT "GEOMETRIK ORTALAMA: ";G0 
240 PRINT "HARMONIK ORTALAMA: ";H0 
250 PRINT "STANDART HATA : ";SH 


2 
2 
2 
2 


60 PRINT "STANDARD SAPMA : ";SS 
70 PRINT "VARYANS : ";VAR 

80 STOP 

90 END 


BÖLÜM 8 


CEVAP 1))) (a) Doğru. (b) MATR'den önce FN yazılmamış. (c) b) şıkkın- 
daki gibi FN unutulmuş. (d) Doğru. (e) DEF ile FNPF(X) bitişik yazılmış. (f) 
DEFİNE FUNCTION yerine DEF FN yazılmalı. (g) FN ile B ayrı yazılmış. 
CEVAP 2))) 


a) 
10 
20 


c) 
50 
60 
70 
80 
90 


e) 
50 
60 
70 
80 
90 


PI-4xATN(1) 
DEF FNA(X)-EXP(-ALFA*X) *LOG(SIN(PI*X) )/L0G(2) 


BETA-O 

FOR I-1 TO 99 
BETA-BETA*1/(173*X) 

NEXT I 

RETURN 


PSI-1 

FOR 1-1 TO 11 
PSIZPSI*(2*1-X)/(2414X) 

NEXT I 

RETURN 


CEVAP 6))) 


1 
1 


40 REM —--- ALTPROGRAM -—-——- 

50 DIM A(5) 

60 P-0.3275911 

70 DATA 0.2548296,-0.284497,1.421414,-1.453152,1.061405 
80 REM A” LAR OKUNUYOR 

90 FOR Isi TO 5: READ A(1): NEXT I 

00 Ts1/(14P*X) 

10 ERF-O0 


244 


120 FOR 1-1 TO 5 

130 OERFZSERF*A(I)*#T“I 
140 NEXT I 

150 ERF-i-ERF*EXP(-X4X) 
160 RETURN 

170 END 


CEVAP 8))) 


10 REM ----ALTPROGRAM IÇERIYOR---- 
20 REM X VE YİNIN BOYUTUNUN MAX 100 OLDUĞU VARSAYILIYOR 
30 DIM X(100), Y(100) 

40 INPUT "N DEĞERİNİ GIRINIZ ";N 

50 IF N>100 THEN GOTO 210 

60 FOR I-i TO N: INPUT X(1),Y(I): NEXT I 
70 A(L)-X(1) :B(L)-Y(1) 

80 GOSUB 250 

110 HisHESAP 

120 A(L)-X(1I) :B(L)>X(1) 

130 GOSUB 250 

140 H2-HESAP 

150 A(L)-Y(1) :B(L)-Y(I) 

160 GOSUB 250 

170 H3-HESAP 

180 DEGERSSOR(H1/ (H2xH3) ) 

190 PRINT "DEĞER" ;DEGER 

200 STOP 

210 PRINT "HATALI N DEĞERİ GIRIŞI" 

220 PRINT "N, YA DEĞERI 100 DEN BÜYÜK VEYA NEGATIFTIR" 

230 STOP 

240 END 

250 REM ALTPROGRAM 

260 DIM A(N),Y(N) 

270 HESAP-O 

280 FOR L-i TON 

290 O HESAP-HESAPS#A(L)*B(L) 

300 NEXT L 

310 RETURN 


CEVAP 10))) 


50 REM ALTPROGRAM 

60 DIM X(N,N,N) 

70 ENB-ABS(X(1,1,1)) 

80 FOR Isi TON 

90 FOR Izi TON 

100 FORK-i TON 

110 IF (ABS(X(I,J,K))>ENB) THEN ENB-ABS(X(I,J,K)) 
120 NEXT K,J,I 

130 RETURN 


CEVAP 12))) 


(a) 

.5 S.75 75 

5 -.75 .75 

Bs 75 8 

b 5.45 15 

SS “Z5 25 

.B “75 -175 

Bb S4l5 «75 

5 S.Tb 16 

B-A «TB 

5 5475 75 

.5 -.75 .75 
(b) 

2 3 

2.877112 1.920611 11.51726 
(c) 

2 6 -4 

6 10 8 

12 16 3.5 

5 56 -1.326087 
(a) 
Tz 2 Ye 5 
Ts 4 yz 3 


b 
SL 
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Tz 6 Y- 15 


BÖLÜM 10 


CEVAP 1))) 


10 INPUT "0-2 ARASINDA BIR X DEĞERİ GIRINIZ ";X 
20 IF ((X<0) OR (X>2)) THEN GOTO 10 


30 T-0 

40 FOR Izi TO 5 
50 AsX“I 

60 FOR J-0T0 8 
70 12-1*1 

80 J2-14J 


90 B -(1-X)7J 

100 A1I-(124172)/S0R(12*12412*72) 
110 TSTtALIJ*A*B 

120 NEXT J,I 

130 PRINT "TOPLAM-";T 

140 STOP 

150 END 


CEVAP 3))) 


10 DIM D(9) 

20 INPUT "X DEĞER! GIRINIZ ";X 
30 FOR Izi TO 9 

40 INPUT "D(1I) in değerini giriniz ";DCI) 
50 NEXT I 

60 Ci 

70 FOR I-1 T0 9 

80 CC*D(I) *#COS(I*X) 

90 NEXT I 

100 CSC#X 

110 PRINT "ÇARPIM: ";C 

120 STOP 

130 END 


CEVAP 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 


CEVAP 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


La 
— 
a 


5))) 


D-O0 
FOR I-1 TO 10 
YI-0.04#1I*1I*1 
D2-0 
FOR J-1 TO 15 
GI-57J 
CIJ-(-2)“743“J/C0J 
XI-0.2*1 
D2-D24CJ#XI“J 
NEXT J 
D-D*YI*D2 
NEXT I 
PRINT "TOPLAM-";D 
END 


0) 


REM SERI TOPLAMI BIR ALTPROGRAMDA YAPILMAKTADIR. 

DATA 1,3 

READ A,B 

N-(B-A)/0.25 

PRINT "X"“,“SERJ" 

FOR I-i TO N*i 
X-A10.25*(1-1) 

GOSUB 120 

PRINT X,SERI(X) 

STOP 

END 

REM SERI IÇIN ALTPROGRAM 

EPSILON-1i.E-4 


SERI-0.0 
N-0 
TERIM—(X424N) /(8#N*N*H1) 


SERI-SERI*TERİIM 

N-N*1 

IF (ABS(TERIM)>EPSILON) THEN GOTO 160 
RETURN 


BE 
Ha 


CEVAP 9))) 


10 REM BU PROGRAMDA-FAKTOR(N) -ADINDA BIR ALTPROGRAM KULLANILDI. 
20 REM BU ALTPROGRAMIN GÖREVI N'?I HESAPLAMAKTIR. 
30 INPUT "ŞAHIS SAYISINI GIRINIZ ";K 
40 P-0 
50 ISARET-t1.0 
60 FOR 40 N-2 TOK 
70 GOSUB 140 
80 P-PtISARET/FAKTOR.(N) 

90 ISARET > - ISARET 

100 NEXT I 

110 PRINT "P-";P 

120 STOP 

130 END 

140 REM FAKTOR(N) ALTPROGRAMI 


CEVAP 11))) 


10 X-0 

20 FOR K-1 TO 17 

30 XsX*(K#K*1) / (4*KAKAK*K) 

40 NEXT K 

50 Y£0 

60 Fsi 

70 REM F FAKTORIYEL HESABINDA KULLANILIYOR. 
80 FOR Nzs1 TO 10 


90 SF*N 
100 YEY#N"N/F 
110 NEXT N 


120 Z-X4Y/(X*#Y) 

130 PRINT "Xa";X "Yanıy 070.7 
140 STOP 

150 END 


CEVAP 13))) 


10 B1-0 

20 DEF FNARCCOS(X)SATN(X/SOR(X*X41)) #(4*ATN(1) /2) 
30 DEF FNCOSH(X)-(EXP(X)4EXP(-X))/2 
40 FOR Ks1 TO 17 

50 CFNCOSH(K”(1/3)) 

60 D-FNARCCOS( . 024K) /SGR(3#K*K-1) 
70 Bi-B14C4D 

80 NEXT K 

90 ALFA-SOR(14B1) 

100 B2-0 

110 FOR Ksi TO 9 

120 B3-1 

130 FOR N-O TO K 

140 B3-B3/ (24N11) 

150 NEXT N 

160 B2-B24*1/(K*B3) 

170 NEXT K 

180 ALFA-ALFA*B2 

190 PRINT "ALFA-";ALFA 

200 STOP 

210 END 


İNDEKS 


A 


Akış şeması, 50-54 
Alfasayısal, 23, 150 
Algoritma, 50 
sıralama, 190 
Altprogramlar, 139 
Ana 
bellek, 10, 11 
Aritmetik 
atama deyimleri, 31 
deyim fonksiyonu, 163 
ifadeler, 29 
mantık birimi, 10 
işlem süresi, 85 
Arşiv fonksiyonları, 44, 66-71, 151- 
153 
ATN, 66 
ASC, 151 
ASCII, 12 
AUTO, 20 


B 


Bağlama, 15 
Bellek 
alanı, 32 
ana, 9 
ikincil, 9 
gereksinimi, 106 
Bellenim, 8 
Bilgisayarlar, 
analog, 8 
dijital, 8 
dilleri, 12-13 
hibrid. 8 


İN) 


Bit, 11 
C 


CDBL, 66 

CER, 151 

CINT, 66 

CLOSE deyimi, 74 
CLŞ, 20, 34 

COS, 68 

CSNG, 66 


CVI, CVS ve CVD, 152 


ç 


Çözümleme, 108 
D 


DATA deyimi, 34, 40 
DATE deyimi, 152 
DEF FN deyimi, 138 
Değişkenler, 27 
DELETE, 21 
Derleme, 15 
Derleyici, 13 
DIM 

deyimi, 117 
Dokümantasyon, 93 
Donanım, 8 


Döngü optimizasyonu, 144 


E 


EBCDIC, 12 
EDİT, 21 

END deyimi, 33, 35 
ERASE deyimi, 118 


İNDEKS 
EXP. 68 
F 


FİLEŞ, 21 

FIX, 68 

Fonksiyonlar, 138 

Format belirteçleri 
alfasayısal, 83 
sayısal, 83 


FOR-NEXT yapısı, 122 
G 


GOTO deyimi, 63 

GW-BASIC 
komutları, 18, 20 
yüklenmesi, 17 


H 


Hatalar 
çalıştırma, 110 
programlama, 113 
sentaks. 109 
Hesap 
hassasiyeti, 100 
süresi, 95 


I 


IF-THEN yapısı, 57 
IF-THEN-ELSE yapısı, 61 
INT, 68 

INPUT deyimi, 36 
INPUT# deyimi, 81 

İ 

İçiçe döngüler, 125 

Ikilik sayı sistemleri, 11, 89 
İkincil 

, bellek, ll 

Integral hesap 


Simpson metodu, 198 
Yamuklar metodu, 195 


1) 
wn 
— 


İndisli değişken, 117 

, bellek gereksinimi, 119 
Işlem sırası, 30 

İşletim sistemi, 15 


K 


Karar verme yapısı, 57-62 
Karışık mod, 28-29 
KILL, 22 
Kıyaslama, 58-60 
Kontrol birimi, 12 
Kütükler 
rastgele erişimli, 88 
sıralı erişimli, 86 
Kütüphane fonksiyonları, 44, 66-71, 
151-153 
Kompleks analiz, 203 
Kök bulma, 167 
Köpük sıralama, 156 


L 


LEFTŞ, 152 

LEN, 69 

LLIST, 22 

LOAD, 22 

LOG, 69 

LPRINT deyimi, 85 
LPRINT USING deyimi, 85 


M 


Matris 
band, 182 
bir-boyutlu, 190 
tersi, 188 
üç köşegenli, 182 
üst üçgensel, 181 
Mantıksal 
IF yapısı, 57 
ifadeler, 57 
operatörler, 59 
Merkezi işlem birimi, 10 
MIDS$, 153 


252 İNDEKS 


N tamsayı, 25 
SAVE, 23 

Seçimle sıralama, 156 
Newton-Raphson metodu. 169 Göriler. 159 


sonlu, 161 


. sonsuz, 160 

ON ERROR GOTO deyimi, 38 SGN, 70 

ÖN GOT'O devimi. 64 Sıralı erişimli kütükler, 86 
ON GOSUB deyimi, 140 Simpson kuralı, 198 
OPTION BASE deyimi, 118 SOR, 70 


SPACEŞ, 154 

SPC, 154 
P STR. 70, 155 
PRINT deyimi, 39. 84 EE eyi, sü, vk 


PRINT USING deyimi, 82, 85 ELENA, 2 


Program P 

bağımsızlığı, 104 

basitleştirme, 105 TAB, 70 

bütünlüğü, 105 TAN, 7I 

dizavnı. 50 Tekrarlı 

genelliği, 104 aritmetik, 71 
Programlama, 12 döngü, 73 

aksiyonları, 92 Tercüman, 13 

stili, 91 Türev , 175 

geri-fark formülü, 179 

R ileri-fark formülü, 179 
RAM. 9 mekezi-fark formülü, 179 
READ deyimi, 40 V 
REM deyimi, 42 
RENUM, 2 VAL, TI 
RESTORE deyimi, 35, 42 Veri işleme sistemi, 7 
RESUME deyimi, 43 Von-Mises metodu, 170 


RETURN deyimi, 141 
RIGHT$, 153 

RUN, 23 WHILE-WEND deyimi, 74 
WRITE# deyimi, 85 


W 


S 
<> 
Sabitler 
alfasayısal, 27 Yamuklar kuralı, 195 
çift-hassasiyetli, 26 Yazılım, 8 


gerçek sayı, 26 
mantıksal, 27 


